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Introduction 



The VIC 20 is an exciting computer, designed to ensure that you can easily make the most of 
its colour and sound potential. 

This book has been great fun to write, because the VIC "co-operates" so well with the games 
programmer. The BASIC is fast and unambiguous, the range of noises and colour effects is prac- 
tically infinite, and-despite the slight limitations of the large graphics-allows some splendid 
screen displays to be created, especially with the POKE command. 

Although we hope you'll enter these programs as we've listed them here, and that you'll enjoy 
playing them, the real value of a book like this lies in what you do with the programs to adapt 
them to make them your own, and the ideas you get from them to use in new programs of your 
own. 

We've tried to choose a wide range of programs to show how flexible the VIC can be, and to 
give you some ideas of the kind of programs you can write and the easiest way to achieve the 
effects you desire. 

The printer reproduces all the VIC graphics, and to make the listings as clear as possible, 
we've printed them fullsize, just as they rolled off the printer. Despite this, some of the colour 
commands may be a little hard to fathom out. Here's a list of the colour commands, along with 
REVERSE ON and REVERSE OFF, as reproduced by the printer. This should help in reading the 
listings: 





REM 


Hp II 


BLACK 


15 


REM 






20 


REM 


li g|ll 


WHITE 


25 


REM 






30 


REM 


iinjii 


RED 


35 


REM 






40 


REM 


II j^ii 


CVRN 


45 


REM 






50 


REM 


"i" 


PURPLE 


55 


REM 






60 


REM 


"ii" 


GREEN 


65 


REM 






70 


REM 


II mil 


BLUE 


75 


REM 






80 


REM 


"IB" 


VELLOW 


85 


REM 






90 


REM 


"S" 


REVERSE ON 


95 


REM 







100 REM "■" REVERSE OFF 

We must pay tribute to the great programming contributions made by Adam and Lance Bur- 
bidge, Christopher Hutber, M. Kendall, Graham Charlton, and Ken Mahogany. Without them, 
this book would have failed to explore the full potential of the VIC 20. 

Tim Hartnell 
Mark Ramshaw 
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Monster Maze 

You start off in a maze filled with dots in the top left corner, although you don't actually appear 
until you begin to move. As you move through the maze eating dots you gain points. 

Soon the maze monsters will be after you and you must take evasive action . If they eat you the 
game will end, as it will if you eat all the dots. 

Eating one of the large red cherries means you can go and eat the monsters for extra points. 
Butaftera while they will get over their shock and come after you again. They are coloured purple 
when you can eat them. 

W moves you up, 

A left, 

D right, and 

Xfor down. 

Good monster hunting! 

19 P0KE36879 .13: CO=30720 : SC«7680 : CL*38400 : POKE650. 255 
15 PRINT'TSSmmmmmmmmm" 

20 FORI'a7702TO8164STEP22 : POKEI+CO. 6 = POKEI , 97 : P0KEI+21+C0. 6 : POKEI+21 . 325 
25 NEXT :P0KE81S4.. 252 :PnKE8185. 254 

30 FnRI=8165T0ei94 : POKEI+CO, 6 : POKFT , 98 = NEXT 
35 PRINT"ing( " 

40 FORI«7703TO8143STEP22: POKEI+CO. 1 :P0KEL46:P0KEI+19+C0. 1 :P0KEI+19;46 
45 NEXT :F0RI*8144T08162: POKEI+CO. 1 ••P0KEL46:NEXT 
50 PRINT"a)inii>Bfik«ia %. STU i m BB. lUmm " 

55 PRINT"WW. . , a a, . . . . . , SM " 

m PR!NT"liki«, fafl '9tmn, Sbai. 1 ' a». 061 " 

65 PRiNT"»a!)!!tai aaisi sai" 

70 PRINT" wean a.aa^Ma(.aL— ar" 

75 PRINT" WW SSI" 

80 PRINT" m 'gei*. H I m SWal. aitiT " 

85 PRINT" 8l!ai.a 4 SO " 

90 PRINT"!3 ai«<8IS>^b»«P «iiSr Bfil !C SEI " 
95 PRINT" Sa!3<...- Sa* iRttSE9«. SB 41.89 '■ 

100 PRINT" 9 1 a 331 !8i. . . sa «. aa lai. " 

105 PRINT" aai.aa.a mmmmn,mm.^m^," 

110 pRiNT"'fl f am ssi" 

1 15 PRiNT"iiiiai. . . . a^a i« asr m lawai. ssi mr 

120 PRINT"»PChMCa« Siial.lSSi" 

125 PRINT"lira. ... as ^ai. 1 i i i i gF M^t. Btii " 

130 PRiNT"iiBnMar asi IM0 asi. ais e«. asa " 

135 PRiNT"iii8i .a 4.a «. . .an m.sm m.sm " 

140 PRINT" SSI ^Smin. 1 I 4. 99 Pal. SMB. SBSa" 

145 PRINT"liWl" 

150 IJIMX<2V.V<2).P<2)..C<2) 

155 FORIa0TO2:P<I)=32:X<D«9+T:V<D=12 

160 NEXT'.vri)«l? 

165 C<0>=2:Ca)«5:C<2)=7 

170 DIMfl(2).B<2):FORIa0TO2 

175 flC I )sINT<RND< 1 )*3-l ) = B< I )«INT<RNI)< 1 >*3-l ) = NEXT 
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185 P=7703:Sel0:F"0:Q=0 

200 FORI=0TO2 

205 GETR*:IFR*»""THEN230 

210 D=';R*="fl">-<fl*="D">+((fl*«»"W">-<fl*s"X"))#22 

215 IFPEEK<P+D)*46THENS=S+10:QsQ+1 :G0Tn225 

216 IFPEEK<P+D)-81flNTi!)O0THENF=l : S«S+20 : TI*«"000000" : 00T0225 

217 IFPEEK<P+D)<:>88ORFs0THEN224 

21 B FORPE»0TO2 : IFSC+V<PE)*22+X<PE)OP+DTHEH223 

219 SaS+50 

220 V(PE)=12:X<PE>a9+j:P<PE)«32 

221 TFJ=lTHENVCT>al3 

223 NEXT:G0T0225 

224 IFPEEK<P+DK>32THENr«0 = GOTO230 

225 POKEP > 32 P^P+D •• POKEP+CO .. 3 '■ POKEP > 8 1 

230 PEaPEEK(SC+(V( I )+B< I ) )*22+:'<( ! )+FK I ) ) : TFPEa32ORPE's46ORPE«81THEN300 
235 X=P-SC : V«INT<X/'22) : X»X-V*22 

240 B<I)«0'fl<n«0 

241 IFFBlTHENB<I)«CV<I)<V)-<V<I»V):n<I)-<X<n<X)-<X<n>X):00T0246 

245 BC!)*<V<I)>V)-<V<I><V):fl<I)=<X(D>X)-<X<D<X> 

246 PE«PEEK<SC+(V( I )+Ba ) )#22+X< I J+Rd ) > 

247 IFPE«32ORPE»46ORPE«81THEN350 
250 B<D«0 

255 PE«PEEI«SC+V<n*22+X<I)+fl<I)) 
260 IFPEa32ORPE=4SORPE=81THEH300 

264 fl( I )a0 : IFF*1THENB< I )s<V< I ><V)-(V< I )>V) : GOTO270 

265 B<na<V<I»V)-<V(D<V> 

270 PE=PEEK<SC+<V< ! )+Bf. I ) )*22+X< D ) = IFPE«32ORPEs46ORPEa81THEN350 
285 P< I )aINT<RNIJ< 1 ?#3-l ) : B< I )aTMT<RMT5( 1 )*3-1. > 
290 PE^PEEK ( ?C+ <■ V f T 5 +B a ) ) «22+X < I ^ +fl f D ) 
295 IFPE«32ORPE«46ORPEseiTHEN350 

299 fl<n«0:BCI)«0 

300 IFRNDC1K.5THEN345 

301 Xa0:Va0 

305 IFB<nO0THEN320 

310 Vsi:lFRND<l».5THENV«-l 

315 G0T0325 

320 X« 1 : IFRNB ( 1 » , 5THENX— 1 

325 PEaPEEK < SC+ < V < I ) + V ) #22+X < I > +X V T fpe=390RPE= A!50RPF=« 1 TMEN335 

330 V=-V:X=-X:PEaPEEK<?C+<Vn)+V)«22+XauX) : IFPEO32flWIIPEO46flNDPEO81THEN350 

335 R<I)«:X:B<I)=V;OOTO350 

345 IFRND<n>.8THEH235 

350 POKESC+V( I )#22+X< 1) , PC I ) : POKFCL+V< I )*22+X< I ) .• 1 

351 T FP r T ) =8 ! THENPOKECL+V C D *22+X a ) .. 2 

355 V<I)aVa)+Ba>:Xa)«X<I)+R<I>:P<D=PEEi<''SC+V<I>*2?+X<n) 

356 IFSC+Vf T ^*22+V( T )=PRN!JF*0THEN1000 

360 POKECL+VC D*22+Xf T > . C< D : POKESC+V< I )*22+X< I > . 88 

361 IFF*.1THENP0KECL+V< n*2g+X< I > . 4 

365 NEXT:IFTI*>"000015"THENF«0 

366 IF(3>216THEM1000 
370 GOTO200 

1000 PnKE650; : FORIailTO2000 : NEXT 
1005 PRINT"r3SBC0RE"S 
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Hyperspace Escape 

Sail boldly through space, zapping the asteroids and the alien. Watch out for the UFO, 
colliding with him or one of the asteroids wastes one of your 3 lives. 
Z rotates you left, 
C rotates you right, and 
M thrusts you forward. 

'return' will hyperspace you to another part of space, and 
'space' will fire your laser cannon. 

How many points can you gain by shooting asteroids and aliens before you are destroyed? 

5 Sa0 : LIsS : P0KE36879; 8 : PRINT"T 

10 SCa7680 : CO-30728 •- CL-39400 ' flS-7(?gn 

ig TiTMfi<7> 

16 vai 1 : ysi 9 i i 8X"9 1 8V«0 
^ R*8 

25 F0RI"eT07 : R( I >-768e<«'INT(RN0( 1 >«S06) : 9( I >"ZNT<RND( 1 "im^ZX > : IFRNS( 1 ». STHENDC I > 
— BCD 

30 NEXT 

35 P0KECL+V*22+K.3:P0KESC+V*22+M.ie7 

36 IFfiS>0THENPOKEfiS/32 

40 RD=INT<RND<1>*3+21) : IFRND<l)>.5THENflD«-nD 
45 flS«INT<RND<l)*586)+7f;ffPi 

50 FORI»0Tn7 : I^=PFPK< 197) : IFflBS<SX)+flBS<SV)a0THENPOKE36877. : 80X055 

51 P0KE36878/ 2 : P0KE36877^ 235 = 00T055 
55 D«D+<Ka34)-<K*335 = IFD<0THEND«D+4 
60 IFD>3THEND»D-4 

65 8X»SX+«D«1)-<D»3))*<K=36) :SV«3V+«Il-2)-<D"0)>«<K»36) 
70 IFSX<-17HENSX«-1 
75 IFSX>1THENSX«1 
80 IFSV<-lTHEN8V«-l 
85 IFSV>lTHENSVal 
90 P0KESC+V«22+X^ 32 i X-X+SX : V«V+SV 
95 IFK»15THENX"INT<RNDCl)#22) :V»INTCRND<1)#23) 
100 IFX<0THENX»21 
105 IFX>21THENX«0 
110 IFV<0THENV»22 

115 IFV>22THENV«0 ^ 

1 16 IFPEEKCSCf V«22+XK>32TH£N1000 




120 POKECL-l-V3|i224'X^ 3 : C*187 : IFI)<-2THENC"1 14 
125 IFS"3THENC"115 
130 IFS»0THENC«113 
135 P0KESC+V#22+X/C 

140 IFR<I)a0THEN200 

141 IFfl<D«SC'^Vili22->-XTHENie00 
145 P0KER<I>.32:n<Z)aFI(I>-fI>(I) 
150 IFfl<I)<7680THENfl<I>=fl<D+506 
155 IFfl<I»8185THENfla>=fla)-50S 
160 P0KEfl(I)-»-C0.2:P0KER<I>>81 

200 IFKO32ORINT(I/'2>i|!2sITHEN260 

201 P0KE36878, 12 : FORX1-255TO2303TEP-1 : P0KE36877, XI : NEXT 

205 Xl*X:Vl=V:DX*<Da3)-<D-l) :DV'»<D»0)-<D's2) :C«64: IFDVO0THENC«93 
210 Xl«Xl+DX:Vi-Vl+DV 

215 P0KECL+V1*22+X1 , 5 : IFPEEKCSC+V1#22+X1 )*32THEN240 

216 P0KE36878. 15 : P0KE36877, 138 
220 P0KESC+Vl*22+Xi.42 

225 FORJa0TO7 : IFflC J)«SC+Vl*22+XlTHENfl»fl-l : fl< J)=0 : 3*3+20 

230 NEXTJ 

231 IFSC+Vl*23+XlsRSTHENS«8+100 : flS»0 

232 POKE36877.0 
235 OOTO250 

240 P0KESC+V1*22+X1.C: IFXl<21flNDXl>0RNDVK22flNDVi>0THEN210 

250 X2"X'V2"V 

251 X2*X2+D>^ : V2*V2+DV : P0KESC+V2*22+X2. 32 

255 IFX2OX10RV2OV1THEH251 

256 POKE36877.0 
260 IFflSs0THEN300 

265 POKERS/ 32 = IFRND< 1 J>. 9THENRBaINTCRND< 1 )*3+21 ) : IFRNDC 1 )>. 5THENRDs-RD 

267 RSsRS+RD: IFPEEK<fl8+RD*2)a81THENRD»-RD 

270 IFflS<7680THENflS«flS+506 

275 IFfl8>8185THENRS«RS-506 

280 POKERS+CO . 7 : POKERS , 88 

235 IFflS=SC+V*22+XTHEN1000 

300 NEXTI : IFR=0THEN20 

305 IFfi3«0fiNDRNDCl)>.9THEN40 

310 GOTO50 

1000 PRINT"iiSCORE"S 

1085 FORI«lTO20e0:NEXT:l-I«LI-l = IFLI>0THENPRINT"T :D0T016 
1010 POKE198.0 
9999 END 
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G untight 

Outshoot the fastest draw in town, VIC. Move up and down the screen, avoiding the VIC's 
shots and fire back. 
Z moves your cowboy up, 
C moves him down, and 
IVI fires your revolver 
Good shooting, pardner. 



"; 



9 0«-''nillOnDllllD^^ 

10 P0KE36e79< 136 ■ PRINT"T 

19 CO-30720:SP«>0!8C«0 

20 BP«0:BC««0!P«4:C«12 

29 FORI«7689TO01098TEP22 : POKEX-^CO^ 9 : POKEI^-UCO/ 9 P0KEI-<-2-<-C0/ 9 

30 FQKEZ » lfi0TOKEI+ 160 : POKEI-t-2; 160 '• NE»<T 
90 KapEEK<l97>:IFK-64THEN100 

99 P»P+<K«33>-<K-34> '> IFP<2THENP«2 
60 IFP>16THENP*16 

69 PRINTLEFTfCSf jP-1>" Xlllli iflV Mlllk ill MillliMi WV'i 

70 PRiNT"niiiiiifliiiik'niiin riiixiiiii 

100 IFRND<1».3THENC«C+INT<RND<1)«3-1) 5OOTO110 

109 IFRND< 1 )>. 6THENC«C+<C>P>-<C<P) 

110 IFC<2THENC«2 

119 IFC>16THENC«16 

120 PRINTLEFTf(S«>C-l>;U£FT»<fl»/17)" Xllini ifll XIIHIIIl ill Mlllli* 

129 PRINT"XllllinilliBn" nillM AT lb »■■« " 

130 IFKO36THEN200 

139 PRiNTLEFTf(9«<P)"i rtimok ormMtoumjM 

140 pRiNT"iiiiiii wdn nmidM ab" 

194 PQKE36878. 14 i P0KE36877, 139 •• F0RI-1T075 : NEXT 

199 I-4!K«64 

160 PE"PEEK(7680+P«22-i-I> 

165 PRINTLEFT*<D*/P+l);LEFT*<fl$/I)"i. " 

170 FORJ«ITO10!NEXT 

175 PRINTLEFT»(D»,P+l);LEFTf<fl*/I>" " 

180 I"I+1 

181 IFI>10THENPOKE36877^0 

182 IFI>6flNDl<l 1THENP0KE36877, 200 : P0KE36878/ 9 
185 IFI<22flNDPE«32THEN160 
190 IFPE»32THEN200 

199 P0KE36877. 290 '• FORJ-1TO90 = NEXT P0KE36877/ 
197 IF<P«CORP+l«'C)flNDI>16THEN400 

200 IFRND< 1 K, 9SflND<RND< 1 X. 80RflB8(C-P»l )THENg0 
205 I"16 

210 PRINTLEFT*<D*.C)jLEFT*<fl«.18)"Mi«TMIIifcflfc«« 

215 PRINT'*Mllim Bi WIM IW " 

216 P0KE36878. 12 : P0KE36877. 135 : F0RJ-1T075 •• NEXT 
220 PEoPEEK<7680+C*22+I) 
225 PRINTLEFT*<D$. C+1 ) J LEFT*<fl*. I ) "i. " 
230 FORJ-1TO10!NEXT 
235 PRINTLEFT*<D*; C+1 ) ; LEFT*<fl»; I > " " 



, II 
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240 I-I-l 

241 IFI<12flNDI>7THENP0KE3S877* 200 : P0KE36878, 5 

242 IFI<8THENPOKE36e77.0 
245 IFI>0nNDPE"32THEN220 
2S0 IFPE«32THEN50 

252 P0KE36877. 258 : FORJalTO50 : NEXT : P0KE36877. 

253 IF<COPflNDC+K>P)ORI>4THEN120 
255 SC-SC+l 

300 PRINTLEFT»(D$^C)" Xllll HUH 
305 PRINT")aillll«lik-ni' 



All"; 



mil niiii niiiih « 



310 FBI 
315 GOTO1000 

400 PRINTLEFT»<D»iC);L£FT*<fl*, 17) " 
405 PRINT")(IIIIM-|IHIi" 

410 F"2:8P*SP+1 

1000 P0KE36e78. 15 : P0KE36876, 200 : FORI-255TO130STEP-1 . 3 : P0KE36877; I '> NEXTI 

1001 POKE36877,0!POKE36876.O:FORI'»ITO500:NEXT 

1003 P0KE36878/ i2:P0KE36876. 140!FORI»1TO450:NEXT!POKE36876,0:FOR1"1TO100:NEXT 

1004 P0KE36876. 152 : F0RI-1T0430 : NEXT = P0KE36876. : FORI'slTOlSO = NEXT 

1005 P0KE36876. 140 ! FORI-1TO150 = NEXT : P0KE36876. : F0RI«1T075 : NEXT 

1006 P0KE36876/ 141 : FORI-1TO700 : NEXT 

1007 POKE36e76^0 
1000 IFSP«5ORSC«5THEN1020 

1009 IFSPe5ORSC«5THENlO20 

1010 IFF-1THEN120 
1015 IFF-2THEN65 
1020 PRINT":aKD0IMICOriPUTER"8C 

1025 pRiNT"XHHiiniiiimwni'ou"SP 

1030 P0KEi98.0 
1035 END 
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Scramble 

Bomb the enemies defense installations and shoot down the fighters for points. 

As you move off the right of the screen, you appear on the left of a new landscape. Avoid the 
enemy rockets and fighters as they stream through the skies. The small red balls are fuel dumps 
and the large circular objects on stilts are ammo dumps. 

Bomb the club-shaped alien base to gain extra points. 

W moves your ship up, 

A backs it up, 

D accelerates it forwards (it is already moving forwards), 
X moves it down, 
S drops a bomb, and 
'space' fires your laser. 

Be careful not to crush into anything and try and avoid the flak thrown at you from the ground 
installations. 



I Lfi«l 

5 POKE650..255 

i P0KE36879 .. 8 "• nn=?!Pl7'5fl : 01=35400 : SC-7S80 

II X=0:Vs=5:B»0:8»0 

12 DIMMX<3);F?i<3)*B'/.<3) 

15 IFLfl>3THENLfi»l: RESTORE 

16 ONLflOOTO20>55il00 

20 PRINT ''^ffiiaiiwwwaifWiiiwa yvrjaa vwmnm" ; 

pp T KIT " A 1/1 mil nil /> matt i mi i miis ^larT-ijn w ; 
m PRINT" Bi 1/1 111 "^mii rsmtm i him ■ hi " j 

35 PRINT»II«1VT' 

40 POKE38902.5:POKE38903.5:POKE38904;5:POKE8182, 124:P0KES1fi3. 1S0: POKES 184.. 120 

45 P0KE799S+C0 . 3 ■ Pri\<P79SS ■ 78 : Pn!<E7926+C0 .. 3 '• P0KE7926 , 78 

'^Pi POKES 1 40+CO .. 3 : POKES 1 40 . 77 : POKE8070+CO ■ 3 : POKE8070 ,101: QOTO 1 50 

pPTMT"ri iMW) ii)ii)ii ^ ^ ni OP w" 



60 PRINT"! Hiflii/^i nl'^!^ll/^Mll»il^wll■v^■n■^il"; 

gcr PPTWT>-Ti.!Parv«iiiBiwr"; 

70 pRiHT-'ssiYTwinini"; 

75 PRINT"^la^B^^Bs«lnni•lIs^'7Vli " 

fiR POKE90 1 1 +C0 , 3 ! POKE80 1 1 . 77 : POKE8024+CO , 3 : POKE8024 , 77 

85 P0KE7959+C0. 3 : P0KE7959> 100 *• P0KE7981+C0. 3 : P0KE798h 74 

90 POKE7920+CO, 3 : POKE7920. 77 i OOTO150 . ^ ^ „ . 

100 PRiNT"nHiMsiaa^^ m m nrviiiinniirriMmiiiMM m ni ni % 
105 PRiNT"Miinis wmM M * nil irn xminiRVTvmiiM mmm" ; 
lie PRiNT'iinnnmiMinrunnri ni""; 
115 PRINT" gmbMnniiiiM^" 

150 FL«4!FI*4 

165 FnRI«0TO3 : FV.< I >«7767+IHl44 : IFI«1THENFX< I )"F'/4< I )-l 

170 IFI«2THENFJ<a)«F?4<I)-47 

175 IFI«3THENFX<I>«FX<I>-44 

180 RER06?i(I>:n»(I>>'BX(I> 

195 NEXT 

200 FORI-0TO3 
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281 P0KE8C-l-Vill22-i-X^ 32 : GETfl« : IF6«0THENPOKE36876. 
205 X»X+l+<fl$»"R")«2-<fl*«"D") : IFX<0THENX«0 
210 IFX>2lTHENX»0iLfl»Lfl+l:GOTO15 

220 V*V+(R«B"W">-<fl$««X"> ! IFV<0THENV»0 

221 IFV>22THENV»22 

225 IFPEEK<8C+V*22+X)<>32THEN1000 
230 P0KECL+V«22+X> 2 •• P0KE8C+VKI22+X, 62 
235 IFF?i<I)»0THEN250 

240 POKEFXC I > , 32 ! FX< I i^FJiC I )-l ! IFFJi< I X7680THENFXC I >«FX< I >+88 
245 POKECO+FX< I ) , 1 : POKEFJiC I ) . £0 
250 IFMf«I)«0THEN300 

255 IFMJif I )aB5i< I )flNDRND< 1 X. 90RBX< I )"0THEN300 
260 P0KEM?J<I),32:|1X(:i)BM?i<n-22 

265 IFW/ia )<7702THENPOKEMJi< I ) , 32 : MX< I )f BX< I ) : POKEMJ« I )+C0> 3 : POKEMJi< I ) , 30 : OOTO300 
270 POKEMJiC I )+C0. 2 : P0KEMJ4< I )-22+C0* 3 : POKEMXC I ) , 22 : POKEMX< I >-22^ 30 
300 IFRS»"S"nNDB«0THENB«8G-l-Vlll22-i'X+S2 

355 IFB-0THEN4PI0 

356 Pni^36878.. 5 : P0KE36876/ 8/25-75 

360 POKEB, 32 : B«B+22. 5 : IFPEEK<B)032THEN3S5 

361 IFPEEK<B+1)"32THEN395 
363 B^B+l 

365 P0KE36878, 15 : P0KE36e77, 175 

366 P-PEEKCB> : C-PEEK(B+CO> ! POKEB+CO, 2 : POKES. 42 : B-INKB) : IFPO60THEN375 

370 FORJ«0TO3 : IFFXC J)«BTHENFX< J)«0 : P««32 : 8«S+20 : FI«FI-1 

371 next: 0010390 
'575 TPPO30THEN385 

380 FORJ-0TO3 : IFB«M?i< J>-22THENP0KEM?i<..T) , 32 : MJi< J)-BX< J) : P«32 : 8-8+10 

381 NEXTJ 

385 IFPO120THEN388 

386 FORJ«0TO3 : IFB«BX< J)+22THENP0KEMX< J) , 32 : POKEMJiC J)-22/ 32 : BX< J>«0 : SaS+30 

387 NEXTJ 

388 IFP»101ORP'«77ORP«78ORP'«100THENP«32 : FL •FL-1 

389 IFP>72flNBP<76ORP«85THEN8«S+50 : P«32 

390 IFP*eiTHEN8«8+100!P«32 

391 IFP«88THENSaS+500 : P0KE36879, 25 : FORJ-1TO100 : NEXT : P0KE36879, 8 : P-P+128 

392 FORJB1TO100 ! NEXT : POKEB* P ! POKEB+CO. C : B-0 : P0KE36877. 8 : QOTO400 

395 IFB>8185THENB«0:OOTO400 

396 P0KEB+C0,l:P0KEB.46 

400 IFflfO" "THEN460 

401 P0KE36878, 15:Ff)RXl«255TO230STEP-l '.P0KE36877.X1 :NEXT 
405 X1«INT<X)+1 

410 P0KECL+V*22+X1 . 7 : IFPEEK(SC+V#22+X1 )-32THEN440 

41 1 P0KE36877. 135 : P0KE36874. 205 

415 P«PEEK<8C+V«22+X1 > P0KESC+Vi22+Xl » 42 

416 IFP*101ORP-77ORP«78ORP-100THENFL«FL-1 ! P«32 

417 IFP>72flNDP<76ORP*85THEN8«8+50 : P«32 

418 IFP»81THEN8-8-i'100:P«32 

A?0 FnR.T.0TO3 : IFFfiC J>«8C+V«22+X1THENFX< J)«0 : S-8+20 FI-FI-1 : p.32 

425 IFBXC J)+22«SC+V*22+X1THENP0KEMX< J> .. 32 ! POKEMX< J)-22. 32 : BX< J>«0 18«8+30 : P-32 

430 IFIT/iC J)-22<>8C->-Vlii22'fXlTHENP0KEri»( J) , 32 : M^C J>«BX( J) : 8"S+10 : P«32 

435 NEXTJ 

436 P0KESC+V«22+X1.P:X1«X1-1 :00T0445 

440 P0KE8C+V#22+X1 .6A:X1»X1+1 : IFXK22THEN410 
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44! XI -22 

445 P0KE36874, : FORJ-X+ITOXl P0KE8C+Vi22+.T - 32 '■ HEXT : > 
455 F«7680+THT<RND< 1 )*330> ! IFPEEK<F)O32flNDPEEK<F)O32THEN500 
460 NEXTI : IFFLa0THEN500 

463 F«7680+INT(RND(1)«330) : IFPEEK(F)032RNDPEEK<PK>62THPW5nfl 
485 POKFP+Cn, 4 : PQKEF • 42 : Pn» TsI rn7«; : ucxt : TFP«Sr+V«22+XTWPHiei00 
'I?? Pn!<EF..32 

495 POKEF+CO .. 4 : POKEF .. 42 i FOR J« 1 TO?? : NEXT : T FPe<sc+V«22+XTHPW 1 ffm 
49? 

500 IFFI>0THEN200 

505 FORIa0TO3:FX<I)-7767+I«44: IFIslTHENFX<I)«F«<I)-l 
510 IFI«2THENF?i(n»FX(I)-47 
515 IFlB3THENF5i<I>BFXa)-44 
520 NEXTI :FIa4:OOTO200 

1 000 POKE650 .. : POKESi?!?'*: • < : Pnfe'F????^''' ; 1. 80 : P0KF3S878 - 1 5 
Ida? poK:ECL+V*22+X;2:POKESC*V#22+X..42 
1010 FOPI«1TO750:NEXT 

1015 PR T WT " "FrnpP " !=5 : POkf F!^(=:fi74 , : PflKF^f 876 , : P0KE36877 , : P0KE36878 * 
2000 DflT87902.. 7972, 8090, 8161 
2005 PflTfl7992 , 7976 , 8023 > 79 1 7 
2010 r?^TR8036,8l07,8110,7913 



Alien Maurauders 

Stop the maurauding aliens before they overun your planet. You start out with three lives, how 
long can you last? 
Z moves you left 
C for right 

and M to fire your laser cannon. Good luckl 



1 HS«0 

5 SC«0 : B-1 : Fa0 : IN*0 = OO8UB1000 = G0T035 
8 FORI«ITO2000 : NEXT •• IN«»IN+l : GOSUB1005 

35 IFF-1THEN505 

36 P0KE3e87e^ia;F0iCE36e74^132 

37 f ORJO0TO2 
40 K*PEDCa97> 

45 IFK>32RNIHCC35THENOOSUB380 
50 IFSO0THENOOSUB4e0:OOTOiee 
70 ZFK"36THENS«Q-22:GOSUB400 

100 GOSUB60O 

200 NEXTJ ! P0KE36874, ! FORV«0TO3 : FORX-0TO3 : IFfl?4<V< X>#8THEN258 
205 Z*R^(V,X>-76ee:Zl«INT(Z/22) :Z«Z'Zli22 

210 POKEflXCVi X> > 32 - POKEFUiCyj XHl , 32 

211 IFZ-Ki4<10RZ-Xl|l4>6THENDJ4<ViX)-DX<ViX> •.flJi<V/X)««««V*X)+44 
215 R»<V,X>«RK(V,X>*]ffiCy4X} 

217 POKEflXCVi mCO, V+2 ■ POKEflX<V< X> 1 255 

220 P0KEflX<V/X>+C0+^V+2fP0KEflX<V.X>+l, 127 

221 IFR»<V>X)>8142THEN500 
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225 K->PEEK(197) = IFK>32RNDK<:35THENOOSUB300 

226 IFK«36RNI)S«eTHEN8«0-22 
230 IFSO0THENOOSUS4e9 
235 C<*Cf 1 

250 NEXTX;V:IFC"0THENe 

251 C«0 : FORX«0TO3 : C«C-i-RX(PO, H) i NEXTX 1 2FOi0THENPO«PO-i i IFPO<0THENS 
29S 00T03S 

300 P0KE0-l>32!P0Ke0^L32 

305 0"0+(K>33)-CK«34):iFO<8143THENO«8i43 

310 ZF0>8162THEN0"8162 

315 P0KE0~1'('C0«3:P0KEG-L 112:P0KEQfC0«3iP0KE0i 113:P0KE0fC0+li3!P0KE0f L 110 
320 iETUSN 

400 POKES^ 32 : 8»S-22 > IF8<7fi80THEN8«0 : POKE36077i : RETURN 

401 P0KE36877; 153 1 P0KE3£87B< 6 
40B IFPEEK(S}032THEN41S 

410 P0KESfC0<5!P0KE8i93>00T046S 

415 P0KE36877jl75!P0KE36878ilS 

416 P"PEEK(8) : POKES-t-CO^ 2 : POKES^ 42 i IFP-160ORP«9SQRP«105THEN460 

420 P0KE8-li32:P0KESflj32 

421 P0KE3687Si 15 : P0KE368?7i 200 
425 IFPi>127ORP<>2SSTHEN450 

430 FORX1-0TO2 : IFS"8»(Xl)TMENSC«SCfS ; 8^.(X1)»0 
435 MEXTXi 
440 OOTO460 

4S0 FORyi«0TO3 ! FORX1-0TO3 : IFPUm t XI )«80RR^.(V1 * XI }-i-l«8THENR»CVL XI >«0 : SC»SC-(-i0«< 
IN+1) 

455 NEXTXLVl 

460 POKES^ 32 : S"0 : P0KE36e77. : P0KE36678i : P0KE36e77^ 
465 RETURN 

500 FORI«1TO10O0:NEXT 

501 PRINT"T i P0KE36e78^ 42 : PRINT"llllliTHE INVADERS LaNZI««" OOTO509 

505 P0KE36878^ IS : P0KE36877< 150 : POKEO'IKO; 4 : POKEOKO^ 4 : POKEO-t-l+CO^ 4 

506 POKEG-1 1 223 : POKEO/ 223 : POKEOi-h 223 : FORI«lTO100e : NEXT : P0KE36677 ^ : P0KE36878; 

507 B*B+1 •• IFB<4THENPOKE7680i B+48 : F«0 : P0KE36877i : 00T035 

508 FORI-ITOIOOO: NEXT: PRINT JPRINT'-WOU'RE jjEfllJ" 

509 print: print: PRINT" VOU 8COREO"SC:POKE36677/0:POKE36878/0 

510 IF8C>HSTHENHS«8C 

511 PRINT"HIOH SCORE'»"HS 

513 PRINT"PRE88 fl KEV FOR ANOTHER ORME^ SPACE TO END" 

514 0ETA»iIFA*O""THEN514 

515 GETA* : IFR*-" "THEN515 
520 IFA$«" "THENEND 

525 8C»0 : B"l : F»0 : IN--1 : PRINT"3" : G0T08 
600 IF8;i(J)>0THEN615 

605 S8»INTCRNI}(l)i4^ ; IFR;i(PO/ SS)<«0THEN635 
610 &i<,J'>»m?QtU-)*2Z 

615 P0KE8»(J>4 32:8XU)i*SXCJ)4-22: IF8X<J»8i63THEN8^.CJ>«0:OOTO635 
620 IFPEEKCS?i(J))-112OSPEEK(S?i(J))-113ORPEEKCS»CJ»'>110THENF«l 
625 IFPEEKCS^C J^)O32THENP0KE8»< J> » 32 : S»C J)«0 
630 P0KE8!iCJ)-fC0>6:P0K£S^.<J)i93 
635 POKE36877«0! RETURN 

1000 PRINT"a":COff30720:l)IMffijC3i3)^O»(3^3)iO>8144:POKE36e794e 

1001 SIMS;iC2) 
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1003 P0KEQ*C0-L3:PQKE0fC0«3:PQKE6'l'C0fi<3:PQKE0~iai2:P0KEQi 113:P0KEQf LllO 
1010 FORI^aigiTOeiSS ! PQKEXf C0< 6 ? POKE! * 160 : NEXT : POiS 
101S FOSy90TQ3!FORX<»0TO3 

1020 flKCV<X)«76BlfV!llfi6i-INill44i')i«4!D»(V4}<)'>l 

1021 NEXTXiV 

1022 IFZN>0THEN10S1 

1025 FORV»e032TO80SlSTEP22: F0RX»2T0168TEP7 
1030 POKEV+XtCO< 7 ! POKEV+X+l+COi 7 : P0KEV+X+2+C0* 7 
1035 POKEV+Xi 160 : POKEVf Xfl t 160 : PQKEVtXt2< 160 
1040 NEXTXiV 

1045 FORX-6100TO81 15STEP? : POKEX-t-CO« 7 : PQKEXf2f C0« 7 

1050 POKEX^ 105 : P0KEX-c2« 95 : NEXTX 

1051 FORX"0TO2:S;iCX>9O* NEXTX 

1052 POKE38400« 1 : POKE7680« B'1'48 
1055 FORI*1TO2000! next: RETURN 



Airplane 

Attempt to land your passengers safely on the runway at La Guardia Airport. 

When the distance reads on your instrument panel, you have reached the runway. You have 
to stop before you have passed 200 units of the runway {when the display reads -200). 

The numerical keys determine your rate of acceleration, means you are gliding. 'Space' puts 
on your air brakes and 'S' lowers your undercarriage. 'Return' will raise your undercarriage and 
switches off your air brakes. 

'W raises your plane's nose, 'X' lowers it. 

'R' and 'D' alter position compared to the horizon. This may also be altered by the wind. This is 
shown on the artificial horizon to the left of your instrument board. 
Good luck. It may take practice to land correctly. I can't! 



1 P0KE36879, 8 = PRINT"T : POKE650. 255 

5 FORI=38400TO38906:POKEI,7 

10 NEXT 

15 F0RI=IT013 

20 P0KE7845+I«22+I/1.7. 108!POKE7845+I»22-I^'1.7, 123 
25 IFINT<I/2)*2aITHENPOKE7845+I«22.101 

30 NEXTI 

35 PRINT-araRIR SPEEDMIMMilMPtTTTi mPUmMIIIIDISTflHCE)(DIDSPmilllin" > 

40 PRINT"!fl " 

45 F0RI«1T014:PRINT"WI linitllittMltll I" 

50 NEXT 

55 PRiNT"»imiitiiMiMDinii / — .mini i ininn iniiin" : 

fi0PRINT"l IliliiW* "' 

PPTWT"?iW«OnPTTITIJDE" 
70 PRTNT")aJNDER3milllCRRRPIGE:" 

75 D«INT(RNDa )*3000)+4200 : H*3000+INT<RND< 1 )*500-249) : TH«0 : flB-0 
80 V«200:P«0:P"0:U»0 

100 D«D-V/'3S : HaH-2+<fl#V>/'5 : IFfl-0THENH-H+V/200 

101 IFV>400THENV«400 
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105 v«v-. 5-U/'20+CH<4)«2-f!B«9 : IFRND< 1 )>. 9?THFNP»P+TNTfRNB^ 1. )«3-l ) 

110 TFV^«TWPWVa0 

1 1 RFTfl* : AbR- ( fi$e " W " ) + < fl*- " X " ) 

128 IFfl*"CHR*(13)THENU«0:flBs0 

121 IFfl*«" "THENflB«l 

125 IFfl<-lTHENfl— 1 

130 IFflMTHENflol 

135 V«V+THi IFVflL<fl$)>0ORfl*-"0"THENTH«VflL<fl*> 

145 IFP<-1THENP«-1 

150 IFP>1THENP«1 

151 IFfl*-"S"THENU«l 

155 PRINT"»niit»Biii";lNT(V);"|| " 

160 PRINT"IMIiiiiil"JlNT<H>J"ll " 

165 PRIHT"»illBBBiriINT(D>;"ll " 

170 PRINT"WiBiiBMm"; :iFR»lTHENPRINT''\"j 

175 IFR«i0THENPRINT"-"; 

180 IFfl— ITHENPRINTV"; 

185 PRINT'JWWfll" 

190 PRINT">!WfiMWil"; : IFI>0THENPRINT"UP " 
195 IFU»1THENPRINT"D0WN" 

205 PRiNT"9miiMi»iiinMinii mil li mil "; 

210 PRiNT"nniii"j 

215 IFPalTHENPRINT"\)IDaiK" 

220 IFP-0THENPRINT")Hh" 

225 IFP»«-1THENPRINT"»)(1/TW/"' 

235 IFH<1THENH«0 

240 IFD>0flNDH«0THEN250 

241 IFV«0flNDH"0THEN250 
245 IFD>-200THEN100 

250 8*100 ! FORI-1TO3000 • NEXT i PRINT"T 

255 IFD>0THENPRINT"VOU MISSED THE RUNWflV" : 8-3-60 :GOTO300 

260 IFD<-500THENPRINT"VOU OVER SHOT THE RUNWflV : 8-8-60 :GOTO300 

265 IFPO0THENPRINT"VOUR WINO SCRAPED THE GROUND" : 8-8-50 :OOTO300 

270 IFfi<lTHENPRINT"VOU BELLV FLOPPED" :8-S-50:OOTO300 

275 IFPO0flNDH<4THENPRINT"VOUR WING TIP HIT THE GROUND" = 3-8-75 = GOTO300 

280 IFU-0THENPRINT"VOUR UNDERCflRRIflGE WflSUP" :8"S-75:GOTO300 

285 IFV>10THENPRINT"TOO FAST" !S-S-25: IFV>25THENS«S-25 

290 IFSBl00THENPRINT"fl PERFECT LANDING" 

300 PRINT"VOU SC0RED"8 

305 POKE650.0:EHD 

1000 F0RI-1T013 

1005 P0KE7845+I*22+I/'1.7i 108:POKE7845+I#22-I/'1,7. 123 
1010 IFINT<I/'2>*2«ITHENP0KE7845+Iili22; 101 
1015 NEXT 




mm 
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Marathon 

Sit back in your armchair at home and bet on the greatest athletes the world has ever seen. 
Place your money on one of the three athletes and watch the race. Then, if you are lucky, 
collect your winnings. 
The game continues until you are broke or you break the bank. 
Can you choose the winner from the odds given? 



2 P0KE36879..8 

3 MO«100 

10 PRINT":i!«**iflTHLETE GflMBLERn»*#" 
20 PRINT" " 

30 PRINT"IMHflT IS VOUR NflMEi" 

31 INPUTfl$ 

32 F0RI-1T03 : 0D< I )«INT<RND< 1 )#6)+l : NEXT 

35 PRINT-rWOU HAVE £"M0 

36 PRINTfl* 

40 PRINT :PRINT"W?UNNER: ODDS:" 
90 PRWl"lHimmmm mmmU" 

60 print: PRINT" nSEB. COE irOD<DVl" 

70 print: PRINT" «2)STEVE OVET irOD<2)"/r' 

80 PRINT! PRINT" W>flLLflN WELLS irODO)"/!*' 

90 PRINT :PRINT"BET?" 
100 INPUTS 

110 IFB>MOORB<0THEN100 

120 PRINT :PRINT"WHflT'S THE NUMBER OF THE ATHLETE?" 
130 INPUTR 

135 IFR<1ORR>3THEN130 
200 PRINT"T:POKE36879.170 
210 F0RI=1T022 

220 FORJ*7680+I*22TO7S89+I«22-INT< 1/2.2) ■ POKEJ+30720, : POKEJ. 81 : NEXTJ. I 
225 F0RI-1T022 

230 FORJ"7701+< I#22>T07692+< I#22>+INT< 1/2. 2)STEP-1 : POKEJ+30720. : POKEJ. 81 : NEXTJ. 
I 

235 PRINT"MfiB ##THE RflCE## 

240 PRINT"WW)WI1)^^ 

250 PRINT"»iiMMI i" 

300 : P0KE36874. 128 : P0KE36877, 128 ! F0RI-15T018TEP-1 : P0KE36878, 1 : FORJ-1TO20 : NEXTJ. I 

310 P0KE36877. : P0KE36e74. : P0KE36878. 

330 RP< 1 )«8122 : RPC2)a8130 : RP<3)=9137 

340 F0RI«lT03:P0KERP<n.32:P0KERP<I)+1.32 

350 POKERPC I )+2. 32 = POKERPC I )+23. 32 

360 P0KERP<I>+44,32:P0KERP<I)+46>32 

370 P0KERPCI)-21.32:NEXTI 

390 F0RI-1T03 

400 IF<RND<l><.24flNDRNDCl)#5<OD<I)>flNDRND<l><.43THEN410 

402 IFI»lTHENRP<l)-RP<D+.5 

403 IFI-'3THENRP<3)-RP<3)-.5 

404 RP<I)-RP<I)-22 
410 NEXTI 



13 



415 F0RI-lT03i IFRP<I)<7e97THEN1000 
450 NEXT 

540 F0RI-IT03 : POKERPC I )+30720> 1 : POKERP< I > . 252 : POKERP< I >+3072l / : POKERP< I )+l , 176+ 
I 

550 POKERPC I >+30722/ 1 : POKERP< I >+2. 254 : POKERPC I )+30743. : POKERPC I >+23; 160 
560 POKERPC I )+30764. I : POKERPC I )+44, 254 : POKERPC I )+30766. 1 : POKERPC I )+46/ 252 
570 POKERPC I >+30700. 1 : POKERPC I >-21> 81 = NEXTI 

560 : P0KE36878^ 4 : P0KE36874« 147 : P0KE36877^ 140 : F0RI-1T065 : NE»<T : P0KE36874^ : P0KE368 
77,0 

581 POKE36878/0:OOTO340 

1000 FORZ"1TO1000 : NEXTZ : P0KE36879, 8 

1001 J-I 

1010 PRINT"M" 

1020 OOSUB1500 

1050 PRINT"WON. " 

1060 PRINT '.PRINT'-kVOU BET ON" 

1070 I-R 

1080 OOSUB1500 

1090 PRINT" «80,V0U'VE" 

1100 IF>RTHENPRINT"fcWON!!! WELL DONE." 

1110 IFJORTHENPRINT"lt.08T!! BAD LUCK." 

nil IFJORTHENMOnMO-B 

1112 IFJ»RTHENM0«l104-C00CR>iliB) 

1113 IFMO<1THEN2000 

1114 IFMO>20000THEN3000 

1120 PRINT sprint: PRINT" •>RE88 RETURN" 
1130 INPUTfl* 
1140 00T032 

1500 IFI-lTHENPRINT"nBEBflSTIflN COE" 
1510 IFI««2THENPRINT"IIBTEVE OVET" 
1520 IFI>3THENPRINT"kflLLRN UELLS" 
1550 RETURN 
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2000 PRINT" *'OU'VE RAN OUT OF MONEV" 

2040 PRINT :PRINT"inDO VOU OR VOUR FRIEND WANT B ORME? 

2050 INPUTfl* 

2060 IFfl$«"VES''THENRUN 

2070 PRINT«aBVE THEN." 

2080 END 

3000 PRINT"kVOU'VE BUST THE BANK 1 1" 
3010 OOTO2040 



Wizard 

Can you follow the series of electronic blips given by VIC? 

Press the keys in right order after the computer has given you the tune. The tune gets longer as 
you go on. 

Be quick, otherwise the computer will give you a raspberry. 



1 REMikCOIIPUTER UIZflRD« 

2 PRINT"T:P0KE36879,158 

3 CO«30726:LO«0 
9 PRINT"i*« 

20 PRINT"na 
30 PRlNT"n« ^ 
40 PRINT' :18I ig 
45 PRxNT'TW I 
50 PRINT'-ni mi 
55 PRINT'Tli ■ 
60 PRiNTMa 
6S P8INT"nf ■ 1 1 
I 



-fOrlPUTER- 



Mi ■" 
-•Bl " 



fli 



8 " 



131 fl " 

70 PRIMT".1fl[ ■ I Ml i M I 1 «M I « ■" 
7S PRINTMS m — I v-**-! wg — ggi 

80 PRINT"nfll ■H^/-s»— ■/-Ni-fr-N 

85PRINT".1II 14 1 IS I 161 Bi ' 
90 PRINT lani 
95 PRINTMi BK-l 

100 PRINT" B IM IBT 

110 P8INT".1BI ^^W— 
120 PRINT'MS 
130 PRIHTMI « 

140 PRiNT"na w— — «sr 

150 PRINT'Mfii " 

170 F0RI«8142T0ei8S : POKEI-i'CO^ : POKEI ^ 160 : NEXT 

180 F0RJ»1T06 •■ REflDRC J) : NEXTJ 

185 DflTR223;227/230 

190 DflTR231/234.236 

195 F0R>1T09 : N0< J)»INT(RND( 1 )ill6)f i :NEXT : NU-1 
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200 P0KE36e78^ 8 ; FORIalTONU 

210 P0KE36879<FiCN0(I)> 

211 Z"2 

212 ONNOCI)OO8UB100e. 1100^ 1200/ 1300^ 1400^ 1500 
215 FORJ-1TO550!NIXTJ 

220 POKEa6B75i0:Z"l :ONNO(I)GOSUB1000/ 1100. 1200. 1300. 1400. 1500:FORJ>1TO125:NEXTJ 
I 

225 POKE19e.0 
230 F0RZ"1T0NU 
235 FORJalTO170 

240 OETB«(I>:IFRf(I)O""THiN300 
250 NEXTJ 

260 P0KE36875. 128:F0RJ«lT01800!NeXT)P0i(E3£875.0 
270 LOiLOfl i IFLO5THEN2000 
200 00T0195 

300 IFyfL(R»(I»ONO(I)THEN8i0 
30S P0KE36e7Sif9<Vfll.(flf(I)}) 
310 NEXTI 

320 FORl9lT09S8!NEXT:POKE36875.e 

350 NU«NUfl 

360 FORI-'lTOOSOiNEXT 

365 IFNU*10THEN195 

370 GOTO20O 

1000 P0KE78834C0iZ:PCIKE7e83.ei 
1010 RETURN 

1100 P0KE7e094C0.Z!P0KE7809.01 
1110 RETURN 

1200 P0KE7894fC0.Z:P0KE7a944JBl 
1210 RETURN 

1300 P0KE7971'l>C0iZiP0KE7971.ei 
1310 RETURN 

1400 P0KE7977'('C0.ZiP0KE7977.81 
1410 RETURN 

1500 P0KE7982+C0.Z:P0KE7982.81 
1510 RETURN 

2000 P0KE36879^8:PRINT"3ii'CIU Vm. MRONO.FZVE TIMEO" 

2810 PRINT"!!! 

2020 PRINT" no you I4ANT ANOTHER 00 (V/'N>?" 
2030 0ETR«:IFR«"""THEN2030 
2040 IFflf""V"THENRUN 
2090 PRINT"BVE" 
2059 ENS 
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Tail Gunner 

Enemy space-craft close in on you, growing larger as they approach. Move your sights over 
the top of them and fire before they escape past you. 
W moves your sights up, 
A moves them left, 
D moves them right, 
X moves your sights down, and 
S fires your energy cannon. 

How many can you destroy before 6 get through your defensive net. 



5 PClKEfi»«2S8 

10 P(3l(E3S879/8:PRINT^liilinilil^^ 

15 Sinn(2}«8(2> :FORZ«0TO2:R(I)«768e'f INT<RND<l>iii906> 

20 8(Z>«1:NE}<T 

25 SC»768e:CL«38400:CO"3072e:X"ie!Vaie 

38 8-8:Pn>8 

50 F0RI-8T02 

55 QETfi*!IFfl$«""THENl00 

60 P0KESC+Viii22'»-X/ 32 > XfXf (fli""Fi" }-Cfl«""D" > 

65 V»V+<flf»"W")-<fl$«"X") i IFV<0THENV«0 

70 IFV>22THENV»22 

75 IFX<8THENX«e 

80 IF>021THENX«21 

85 POKECLf VIII224'X/ 1 : P0KE8Cm22'fX^ 91 
108 IFn(I)"8THEN180 

105 fl«fl< I ) : POKEfl/ 32 ' POKEfl-1 , 32 : POKEfl+1 , 32 : POKEfl-21 ; 32 : POKEfl-23. 32 

106 P0KEfl+21;32:P0KEfl+23,32 

107 IFRND<1».9THENS<I>S<I>+1 

1 10 D»INT<RND< 1 >*3+2l ) : IFRNDC 1 ». 5THEND— D 
115 fi'«fl+D!lFfl<7703THENft«fl+450 
120 IFfl>8162THENfl«R-450 

125 fl< I )«fl : POKEfl+CO/ 4 : POKEfl+CO-1 / 4 = POKEfl+CO+1 . 4 : POKEfl+CO-21 ; 4 : POKEfl+CO-23, 4 
130 P0KEfl+C0+23^4:P0KEfl+C0+2L4 
135 ONS<I>GOTO140/ 145. 150. 160. 178 
140 POKEfl.46vGOTO200 
145 POKEn.87:GOTO200 

150 POKEfl. 87 : POKEfl-1 . 187 : POKEfl+1 . 1 15 : 0010200 

160 POKEfl* 87 : POKEfl-1 . 107 : POKEfl+1 . 1 15 : POKEfl-23. 85 : POKEfl-21 , 73 

165 POKEfl+21 .74 : POKEfl+23. 75 : OOTO200 

170 fl<I)»7680+INT(RND<l)«506) :Pfl«Pfl+l :S<I)«1 

175 IFPfl>5THEN1000 

176 6OTO200 

180 IFRND<1K.9THEN200 

185 flC I )«INT<RND< I )*506>+7680 = S< Dal 

200 IFfl*O"S"THEN300 

201 P0KE36878. 18 > FORfl«255TO200STEP-l : P0KE36877. fl : NEXT : FORfl»lTO100 : NEXT : P0KE36877 
. 130 

202 P0KE36e78> 15 

205 fl«CL+V«22+X : POKEfl. 7 : POKEfl-1 . 7 = POKEfl+21 . 7 : POKEfl+22. 7 
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218 POKEfl-22. 7 : POKEfl-23, 7 = P0KEfl-2l , 7 - POKEfl+23. 7 

215 RsSC+V*22+X:F0RJ=lT05 

220 ONJGOTO225.230.235.240.250 

225 POKER. 46 '• P0KE36877, 145 •• QOTO270 

230 POKEfl; 81 : P0KE36877. 175 •• GOTO270 

235 POKEfl. 87 = P0KE36e77. 200 •■ GOTO270 

240 POKER. 73 ■ POKEfl-1 > 85 : POKEfi+21 , 74 = POKEfl+22. 75 

245 P0KE36879. 25 = P0KE36877. 225 = GOTO270 

250 POKER. 32 : POKER-23. 85 ■ POKER-22. 64 : POKER-21 . 73 : P0KE36877. 250 

255 P0KEfl-1.93:P0K£fl+i.93 

260 POKEfl+21 . 74 = POKER+22. 64 : POKEfl+23. 75 

265 P0KE36879.42 

270 FORK= 1 T025+ J* 1 = HEXTK . J : P0KE36877 . 

275 P0KE36879 . 8 = P0KECL+V#22+X . 1 = P0KESC+V*22+X . 9 1 

280 POKER-23. 32 : POKEfl-22. 32 : POKER-21 . 32 • POKEfl-1 . 32 : POKEfl+1 . 32 

285 POKEfl+21 . 32 : POKEfl+22. 32 : POKER+23. 32 

290 FORJ-0TO2 : IFflOfl< J)fiNDR-10fl< J)RNDR+210R( J)RNDfl+220fl< J)THEN295 

291 S=S+S<J)*10 

292 POKER< J)-l . 32 = POKER< J)-21 . 32 : POKEfl< J)-22. 32 : POKERC J)-23. 32 

293 P0KEfl<J)+1.32:P0KEfl<J)+21.32:P0KEfl<J)+22.32:P0KEfl<J)+23.32 

294 fla)«0 
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Astro Wars 

In this arcade action type program, you nnust stop tlie enemy space craft from reacliing tlie 
bottom of the screen. If you manage to stop the first wave, it is followed by a second and then a 
third wave. How many aliens can you take with you before your inevitable defeat? 

Z moves you left, 

C moves you right, and 

M fires your laser. 



10 P0KE36879.8:PRINT"T; :CO«30720 
15 S»0:P«8174:W=0:Lal 
20 DIMflO) 

24 PRINTTflB< 10) ;:F0RI=1T04-L: PRINT"** ";:NEXT 

25 FORI"0TO3:fl<I)«7702+INT<RND<l>*22> = IFI<:3THENS<I>«0 
30 NEXTI 

35 C1-107:C2«81:C3=»115:N-4 

36 W«W+1 •• IFW>3THENW-1 

40 IFW«2THENC1«95:C2=98:C3=105 

45 I FW=3THENC 1 =32 •• C2=88 = C3«32 

50 FORI=:0TO28TEP2 = K«PEEK( 197) •■ IFKa64THEN100 

55 POKEP-1 . 32 : POKEP+1 , 32 : P«P+<K«33)-<K«34> 

60 IFP<8165THENPa8165 

65 IFP>8184THENP«S184 

70 POKEP-l+CO, 3 : POKEP+CO, 3 • POKEP+l+CO. 3 

75 POKEP-1 / 1 12 : POKEP. 1 13 : POKEP+1 / 1 10 

100 F0RJ«IT0I+1 : IFfl<J)«0THENi50 

105 P0KEfl<J)-1.32:P0KEfl<J).32:P0KEfl<J)+1.32 

110 fl<J)sfl<J)+INT<RND<l)#3+21) 

115 IFfl<J)>8163THEN1000 

120 P0KEfl<J)-l+C0.5:P0KEfl<J)+C0.1:P0KEfl<J)+l+C0.5 

125 IFW«2THENP0KEfl<J)-l+C0.7:P0KEfl<J)+C0/2:P0KEfl<J)+l+C0.7 

130 IFW-3THENP0KEfl<J)+C0.2 

135 POKEfl<J)-l.Cl:POKEfi<J).C2:POKEfl<J)+l,C3 

150 NEXTJ 

155 IFKO36THEN200 

156 P0KE36878. 12 = FORX«255TO2008TEP-1 : P0KE36877. X = NEXT 

160 FORX=P-22TO7702STEP-22 = POKEX+CO. 7 : IFPEEK<X)«32THEN190 

161 P0KE36878; 15 = P0KE36877, 130 

165 P0KE36879. 40 : P0KEX-23+C0. 1 = P0KEX-21+C0. 1 = P0KEX+23+C0. 1 : P0KEX+21+C0, 1 

166 POKE36877,200 

170 POKEX-23. 127 : POKEX-21 . 255 ■ POKEX. 81 = POKEX+23. 127 = POKEX+21 . 255 

175 FORV=0TO3 = IFfl( V)=XTHENP0KEX-1 . 32 = POKEX+1 , 32 = SaSH-10*W : fl<V)=0 = N*N-1 

180 IFfl<V)OX+lflNDR(V)OX-lTHENlS5 

181 POKEX-i . 32 : POKEX-2. 32 = POKEX+1 , 32 ■ P0KEX+2> 32 = fl<V)«0 = S«S+5*W : N^N-l 

185 NEXTV : POKEX-23. 32 = POKEX-21 . 32 = POKEX+23. 32 = i=0KEX+21 . 32 = P0KE36879. 8 

186 P0KE3S877.238 

190 POKEX. 93 : NEXTX : FORX=P-22TO7702STEP-22 : POKEX. 32 : NEXT 
195 POKE3687?;0 

200 NEXTI : PRINT"aaSCORE"S : IFN>0THEN50 
205 G0T025 

1000 FORI«1TO1000:NEXT:L*L+1:IFL<4THENW=0:PRINT"T; :eOT024 
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Swarm 

Flash through the skies and zap the alien space craft before they get you. As they collide with 
you, your ship slows down until it eventually stops and the game ends. 

As the aliens die, hear the whine of reinforcements warping into the battle zone to take their 
place. 

W moves you space ship up, 
A reverses it, 

D makes it go to the right, and 

X moves it down, 

S will fire your laser at the enemy. 

5 POKE650.255 

10 PRINT"T P0KE36879. 8 : F0RI=3164T08185 : POKEI+30720. 3 : POKEI . 104 •• NEXT 
15 X-5 : V«10 : D»l = S«0 = SC'»7680 : CL»38400 : R-1 
20 D I MX < 5 ) . V < 5 ) : FOR I -0TO5 : X < I > -99 ! NEXT 

50 FORI«0TOS:OETR«: IFR»"""RNOI}'>eTHENPOKE36877/e:OOTO100 

51 POKE36e78;2:POKE36877;Z40 
55 P0KE8C+V«22+X,32!X«X+D^R 

60 D»D+<flf-"fl")-<fl«-"D") '• IFDMTHEND-1 

€5 IFD<-1THEND"-1 

70 V«V+<fl»»"W">-<fl$*"X"> 

75 IFX<0THENX»2l 

80 IFV<0THENV»0 

85 IFX>21THENX»0 

90 IFV>21THENV-21 

95 P0KECL+VIII22+X. 3 • C-107 : IFD—ITHENC"! 15 

96 IFPEEK(8C-»'Vi|i224>X)">32THEN99 

97 R-R+l : P0KE36876^ 250 > FORL-1TO2O0 : NEXT : P0KE36e76/ : 

98 POKECL+Vl|i22+X>2:iFR>3THEN1000 

99 P0KESC+VIII22+X.C 

100 IFfl*O"3"THEN200 

101 P0KE36878* 9:FORDl-255TO230STEP-l :P0KE36877,Dl !NEXT 
105 D1«I):IFD1"0THENO1«1 

110 Xl»INT€X) 

1 15 Xl-Xl+Dl i P0KECL+VIH22+X1 / 7 : P«PEEK<8C+V#22+X1 > ' IFP-32THEN150 
120 FORJ-0TO5: IFV«V<J)flNDXl-X<J)THENX<J><i99: 8-8+10 

125 NEXTJ 

130 POKE36878,l5!POKE3fi877il30 
145 G0T0155 

150 P0KESC+V*22+X1 , 64 ' IFXl<21flNDXl>0THENl 15 

155 F0RX2-INT<X)+D1T0XISTEPD1 • P0KE8C+VIII22+X2* 32 : NEXT 

160 POKE36877.0 

200 IFX(I)-99THEN250 

205 POKESC+V< I )#22+X< I ) . 32 = IFRN1J< 1 X. 4THEN225 
210 V<I)«V<I>+<V<I)>V>-<V(I)<V> 
215 X<I)-X<I)+<X<I)>X>-<X<I><X> 
220 G0T0246 

225 XC I )-X< I )+INT<RND< 1 >«3-l > : V< I >«V< I >+INT<RND< 1 >*3-l > 
230 IFX(I><0THENX(I)-21 
235 IFV<I><0THENV<I>-0 
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240 IFXCI»21THENX<I)»e 

245 IFV<I»2lTHENV<I>«'2l 

246 IFV< I )«VflNlJX< I )«INT<X+. 5)THENR-R+1 : P0KECL+V#22+X; 2 IFR>3THENi000 

247 POKECL+V< I >*22+X< I) , 4 : P0KE8C+V< I >*22+X< I ) . 88 

250 IFX<I>O990RRNIKl><.9THEN255 

251 X<I)"INT<RND< I )«22) : V( I >"INT<RND< 1 )*21 ) 

252 P0KE36e78^ 15 : FORLk250TO1508TEP-1 : P0KE36876^ L • NEXT : P0KE36676« 
255 NEXTI!GOTO50 

1000 POKE€50^ : P0KE36878^ : P0KE36877. 

1005 FORI«1TO1000 ! NEXT : PRINT":aniIi)IDIDI»iil5C0RE"S 



3-D Maze 

Work your way throughout the maze in the quickest time possible. You must try and reach cell 
number 25. 
The corridor is depicted in 3-D graphics. 
Cursor-right rotates you right, cursor-left rotates you left. 

'Return' moves you forwards, if there is a gap in the wall in front of you. Under a minute is a 
good time. 



10 P0KE3S879,8 
15'DIMM$<50,4):FORI=1TO50 

20 IFI>1THENM*< 1 , 4)«M$< I-l , 2) : IFI>5THENI1*< 1 . 3)-Hf < 1-5. 1 ) 

25 M*<Ll>«8TRI<INT<RND<l)#2>):M*a/2)»STR$<IHT<RND<D#2)) 

30 IFIslTHENf1*< I i 3)="0" : M*< L 4)»"0" 

40 NEXTI:TI$s"000000" 

45 P=INT<RND<1>*50+1) : IFP=25TH£N45 

50 F=VnL<i1$<P, D ) : R=VflL(M*<P, 2) ) : B«VflL<M* <P. 3) ) = L*VflL<M*<P, 4) ) 
60 D=l 

75 IFPS25THEN5000 

80 GOSUB100e 

85 CETfl*:lFfi$a""THEN85 

90 IFfl*O"H"flNDfl*O"ll"THEN150 

95 IFfl$B"ll"THEN120 

100 EX*F:Fa:L:LsB:E*R:RsEX 

105 D=B-1 : IFB<1THEND=4 

li@ GOSUB1000 =8010150 

120 EX=F:F«R:RsB:B=5L = L=E;< 

125 D=D+i : IFD>4TH£ND=1 

133 OQ3UB108@ 

15S IFfi*OCHR$<13>THEN85 

160 IFF=0THEN85 

165 P«P+<i:D=3)-<D=n>*5+<D»4)-<D«2) 
170 IFP>50THENP=P-50 
175 IFP<lTHENPaP+50 
130 GOTO50 

1000 PRINT"3s^J(^)l^o^^0(Nl^)l^ 

1005 PRiNT'']mi)a)i^iiii»»»ii i^giiiii oniiiiii \" 
mid PRiNT"i»»»iiii raiiiiii niiiiiii i" 
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1015 

1020 

1823 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 
5000 

5005 

5010 

5015 

5020 
5025 



PRiMT''»iii»ii/)iii/)iii/i«ii^ii/»ii^ii/^xeii^'riiir^ 

PRINT"^ii^l|iiiiii»iii^.^^^>N(^o»^s^^^^ ; 

IFF=0THEHPRINT''aW)aWffl^^ DOliHKKIIIIIII 1" 

IFL=0THEN1050 

PRINT"»ll«»[)il Sill Milll Oaifl OOilll MMMi \" 

FRiHT'-m mmi mm mtMi mm mm mm mm \" 
pRiNT"iiii mm mm " 

IFR«0THEH1070 

PRiHV'mi»9»nwm»mwwmmMi Ddiii nniii i^eii mmi mmi", 
PRINT"! o^aiii i^ii^ i^iii DSiii Piii iMiiii oaifli mm raiii". 

PRINT" mm mil" 

PRINT"i5*Siii:ELL"P : RETURN 

FORI=1TO1000 : NEXT : PRINT\TW)a)fiS)S)»Wli^ELL DONE" 
PRINT"a»a( ¥0U GOT OUT ALIVE" 
PRINT")ffriME TfiKEN"; 

T=VfiL C T I $ >• : H« I NT i 1/ 1 0636 )■»=! NT < < T-H# 1 0008 ) / 1 83 ) = S=T-H* 1 86e0-M* 1 88 
PRINTH"HOURS" 

PRINTM-MINUTES. AND" : PRINTS'' SECONDS" 
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Brands Hatch 



Test your skill on the road, trying to avoid thirty cars. Be careful not to crash into them or into 
the side barriers. 
See if you can finish the race without damage to you or your car. 
You are given a rating depending on your performance. 
Race instructions are given in the program. 

1 C=12:H*0:PRIHT":DO VOU WANT" : PR I NT "INSTRUCT IONS" : PR I NT "(WES OR WiO)?" : INPUT 

2 IFfl*-"V"THENGOSUB2000 

3 GOSUB2090 ! P0KE36879. 92 : POKE650 . 1 2S : P0KE36e78. 15 : P0KE3S874, 128 : GOTO? 

4 PRINT"T:F0RIaiT023 

5 PRINT" Mil II" 

6 NEXTI: RETURN 

7 G0SUB4 

10 FORL«1TO30 

25 R«7+INTCRND<n*7) 

70 PRim"mmmmmmmm''-PRmTn'B<.f\y'M'n 

80 PRINTTRB<R)"r««0«l"" 

90 PRINTTRB(R)"IK«SI 1»" 
100 PRINTTRBCR)" flW 

110 F0RZ-1T08+DI 

111 OETfl*:PRINT"a(WI":PRINTTflB<C)" " 
120 PRINTTRB<C)" " 

130 PRINTTRB<C)" " 
140 PRINTT RB<C-H?" " 
150 PRINT"M)innilO^^ 
170 C-C+<Rf""Z")-<R*-"M"> 
180 IFCC7ORO14THENGOSUB1000 
191 PRINT" WW" :PRINTTRB<C)" " 

195 PRINT"«MDB M IM) i^^ ««■■ 11" 

196 PRINT"II!"L; :PRINT"II"H 

200 PRINT"»!W":PRINTTRB<C)"ia«a ■■ " 

210 PRINTTRB<C>""8W0ai'" 

220 PRINTTRB<C>"ll'an H-l" 

230 PRINTTflB<C+l)"iM" 

240 OO8UB309 

250 NEXTZ.L 

260 PRINT")QNDiD(DflM" 

262 IFH-0THENPRINT"*«*GREflT DRIVING I «##": IF1JI>2THENPRINT" FOR THRT LEVEL" 

264 IFH«1THENPRINT"*««WELL BONE*'**" 

265 IFH>1RNDH<5THENPRINT"###N0T BRD###" 

266 IFH>4RNDH<1 lTHENPRINT"###GRRNNV*imii" 
270 IFH>10THENPRINT"#**HR,Hfl;HR! IHHUlli" 

275 print; 

280 POKE650<e 
290 GOTO500 

300 PE»0:PE«PEEK<7812+C)+PEEK<7835+C)+PEEK<7ei4+C) 
330 IFPEB96THENRETURN 

400 P0KE36879^ 136 : P0KE36S77^ 240 : FORI<<251TO180 : P0KE36876^ I 
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401 FORI l"lT02ee:NEXTI 1,1 

402 PRINT">«D(I" ! PRINTTflB<C) " " •■ PRINTTflB<C-l ) » ^ t" 

403 PRINTTflB<C-l)"SB IW il" 
407 PRINTTRB(C'~l)"Bli'h 

410 POKE36876,0!POKE36877i 140:FORI-15TO0STEP-1 :P0KE36878, I !FORn«lTO100!NEXTIl, I 
430 POKE36877,0iPOKE36a7e, i5:P0KE36874, 128 !P0KE36879. 92 = G08UB4 : H-H+1 : RETURN 
500 POKE36874,0iFORI-lTO800:NEXTI :PRINT''»IWM1" :PRINT"WWiWiai!!(MFINISHW»" 
910 F0RI«1T08 
520 REflBfKI) 
530 NEXTI 

950 DflTR223< 227,230 
560 DflTR231,234,236 
570 DflTfl238,239 

580 FORI«0TOe8TEP2 : P0KE36875; R< I ) : OO8UB700 : NEXTI 
590 F0RI«lT0eSTEP2 : P0KE36875, fl< I > : OO8UB700 : NEXTI 

600 F0RI-8T018TEP-1 : P0KE36875, fl< I > : GO8UB700 : NEXTI : PRINT-'W : P0KE36878, : P0KE3687 
5/0 

620 POKE650, : P0KE36e74/ : P0KE36879, 27 : END 
700 FORI l-lTO350i NEXT! RETURN 

1 000 P0KE36877 , 2 1 3 1 P0KE36879. 208 : FOR J-iTO750 : NEXT J : P0KE36875 > : P0KE36877 > : H«H+ 1 
1010 IFC<7THENC«7 
1020 IF014THENC-14 
1030 00SUB4: RETURN 

2000 PRINT"WOU MUST OVERTAKE 30 CARS, THE LOWER THE SKILL LEVEL THE FflSTERVO 
U GO." 

2015 PRINT" " 

2035 INPUT"PRE8S RETURN"Jfl«JPRINT"T 

2040 PRINT" "!PRINT"Z-MOVES VOUR CAR LEFT,M-M0VE8 IT RIGHT. 

II 

2045 PR I NT " —"»'—-———-—»«'—— " 

2050 PRINT"THE FIGURE AT THE TOP LEFT IS THE NUMBER OF CRRS VOU'VE PRS8ED, " 
2060 PRINT"THE ONE TO THE RIGHT IS THE NUMBER OF CRASHES." 
2070 PRINT"VOU CRASH IF VOUR FRONT "; 
2075 PRINT"WHEEL HITS A CAR" 

2080 PRINT"OR VOU HIT THE SIDE OF THE ROAD. ": INPUT" PRESS RETURN";A*:PRINT"rj" :RET 
URN 

2090 PRINT"DIFICULTV? <1-HARD TO 9-ER8V> 
2100 INPUTDI:PRINT"T 
2110 IFDI<1ORDI>9THEN2100 
2120 RETURN 




Lightning Bolt 

A bolt of energy descends from the heavens. You must make a wall with your cursor and try 
and make the bolt go through it. If it hits your wall you gain points. 

Be careful, if you cross your path or that of the bolt, you lose one of your 5 lives. Also, the bolt 
may fire a laser at you, knocking a hole through your wall and perhaps hitting you, losing one of 
your lives. 

W moves your cursor up, 

A moves it left, 

D moves it right and X moves it down 



5 HI»0 

10 S>e:CO"3e720:SP"3:LI»5:F»0 
15 P0KE36879/8:Pa79ie 

20 PRINT''T :F0RI"81£4T08169:P0KEI+C0^5:P0KEia60:NEXT 
25 L-76e0+INT<RND<l)*22) ,^ 
30 I)"INTCRNO(l)»3-i>;ZFI)»0ORRNIKl)>.5THEND"I)-t-22 M 
35 C993:ZFS!>21THENC«78 ^1^) 
40 IFD-23THENC-77 ^Sm< 
45 IFD<20THENC«64 mM>^ 
50 POKEL+CO.S^POKEL.C 

55 L»L-<-D : IFL>8163THENS"S-10 = OOTO20 ISW 

56 IFL<7680THENL«L+22 WW 

57 IFPEEK<L)"i60THENS«S-i'50:GOTO30 § £ 

60 P0KEL+C0/7:P0KEL^81 

61 FORI-ITOSP 

65 K«PEEK<197) :iFKO17RNDKO18flNDKO9flNI3KO26THENl00 

70 P0KEP+C0^4:P0KEP* 160;P«P+<K«17)-<Kol8)+<<K«9)-<K*26)>«22 

71 S^^S+l 

75 IFP>8164THENP«P-22:S«8-l 
80 IFP<7680THENP«P+22!S-8+l 

85 IFPEEK<P>«32THEN90 

86 LI«LI-1 : POKEP+CO/ 7 ' POKEP/ 42 

87 P0KE36876^ 240 : F0KE36878; 10 : FORL1-1TO100 : hEXT : P0KE36876/ 

88 OOTO100 

90 POKEP+CO^ 2 iPOKEP/ 91 
100 NEXT 

105 IF8M000THEN8P-2 
110 IFS>5000THEN8P«1 

115 IFRNO(1><.95THEN200 

1 16 P0KE36878. 12 : FORE-255TO2108TEP-1 : P0KE36877. E : NEXT 
120 B»L : E»INT<RND< 1 )#3-l ) : IFP<BTHENE"E-22 

125 IFP>BTHENE»E+22 

130 IFRBS<E)<20THENE«22 

135 B"B+E : B1»B = Cl-93 : IFflBS<E>«23THENCl»77 

140 IFflB8<E)-21THENCl«78 

145 IFRB8(E)«1THENC1b64 

160 IFB>8ie3THEN180 

161 IFB<7680THEN180 

162 P0KEB-i-C0^7:P0KEB;81 
165 IFBOPTHEN170 
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166 LI"LI-1 :P0KE36876/ 175:P0KE36878; 15 :FORLl»lTOi0e: NEXT :P0KE36876; 0:6070188 
170 P0KEB+C0.5:P0KEB.C1 
175 B-B+E: GOTO 160 

180 B-B-E : FORI-BITOBSTEPE • POKEL 32 : NEXT = P0KE3Se77, 

200 IFSC-10THEN1000 

205 IFS>1000flNDF"»0THENLI«LI+l :F«1 

210 IF8>5000flNDF«lTHENLlBLI+l :Fs2 

215 IFS>10000flNDF««2THENLI«LI+l :F«"3 

220 IFLK1THEN1000 

225 IFRHD<1».7THEN30 

230 GOTO50 

1000 FORI«lTO2000:NEXT:PRINT":3KMniMHI4SCORE"S 

1005 IFS>HITHENHI«S: PRINT iPRINT'-WOU GOT THE HIGH SCORE" = GOTO 1020 

1010 PRINT: PRINT :PRINT"»IGH SCORE"HI 

1020 PRINT :PRINT"nWNOTHER GAME?" 

1025 GETfl»:lFfl*«"V"THEN10 

1030 IFfl*O"N"THEN1025 

1035 print: PRINT" aCVE" 

1050 POKE198;0 



Space Birds 



Mysterious eggs are dropping from the sl<y. Large birds hatch out as they hit the ground . What 
are these strange creatures? 

There is a valuable mineral in the clouds of this planet which your company is attempting to 
obtain. Unfortunately, the birds of this planet thrive on the stuff and it is your job to prevent them 
eating it all by wiping them out. 

As the birds reach the clouds, they eat some of the mineral and lay another egg. Thus you must 
shoot the birds before they reach the clouds. 

Z moves your gun left, 

C moves it right, and 

M fires. Be careful. If you fire and miss you may burn away some of the mineral. You get half 
points if you shoot an egg down . Although sometimes they just hatch out. The game ends if you 
crash, if most of the cloud is eaten or if you kill off all the birds. 

5 INPUT-'HSKILL LEVEL" ;LE:LE=LE-1 

6 IFLE<0ORLE>5THEN5 

10 P0KE36879. 8 : PRINT"T ' CO-30720 : G-8143 
15 DIMB<5)/D<5):CL«22:SC»0 

18 FORI«7680TO7701 : POKEI+CO* 3 : POKEL 98 : NEXT 

19 F0RI4R»0T0LE 

20 FORI«0TOWfl:B<I)«7702+INT<RND<l>»22) :Da)=2l+INT<RND<l)«3) 
25 NEXT I 

35 F0RI=8164T08185 : POKEI+CO; 5 : POKEI . 168 = NEXT 
40 POKEG-1 . 1 12 : POKEG. 113: POKEG+1 > 1 10 

44 Nfl=Wfl+l 

45 F0RJ«1T02 
50 FORI«0TOWfl 
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55 IFB<I)«0THEN150 

60 POKEB< I ) . 32 : IFD< I )>0THEN70 

65 POKEBC I )-L 32 : POKEBC I >+l . 32 : POKEBU >-22> 32 : POKEB< I )-43. 32 = POKEB< I )-45. 32 

66 P0KEB<I)-23.32:P0KEBa)-2L32:P0KEB<I)-44,32 

67 IFDC I »0flNDPEEK< B< I ) K>32THEND< n«INT<RND< 1 )*3-23) 

70 B<I>sB<D+D<D:lFB<I»8163THEND<I)«INT<RND<l)*3-23):B<I)aB<I)+D<I5 

71 IFDa)>0ORB<I»»7746THEN76 

72 IFPEEK<B<D-44>«32THEN74 

73 P0KEB<I)-44.32:CLsa-l 

74 D<I)siNT<RND<l)*3+2l) :B<I)«INT<RND<l)*22+7702) 

75 IFD<I)<0THEN100 

76 IFD<D<0THEN100 

85 P0KEC0+B<D,7:P0KEB<I).81 
90 GOTO150 

100 POKEBC D+CO> 7 : POKEBC I )-l+CO. 7 = POKEBC I )+l+CO/ 7 : POKEB< I >-22+C0^ 6 

105 POKEBC I )-23+C0/ 5 : POKEB< I )-21+C0. 5 = POKEBC I )-44+C0. 2 

106 POKEBC I)-43+C0/ 5 : POKEB< I )-45+C0; 5 

110 POKEB< I > . I 13 : POKEB< I >-l . 85 : POKEB< I >+l , 73 : POKEBC I >-22. 102 

115 P0KEB<I>-44/88 

120 0NJC0T0125. 135 

125 POKEB(I)-23';105:POKEB(I)-21^95 

130 GOTO150 

135 P0KEBa>-4S.95:P0KEBa)-43; 105 

150 IFCL<5THEN1000 

160 Ki«PEEK<197) : IFK<33ORK>34THEN200 

165 POKEG-1 , 32 : POKEO^ 32 - POKEC+i , 32 : G«0+(K"33)-(K"34> 

170 IFPEEK<O-1>O32ORPEEK<O)O32ORPEEK<G+1)O32THEN1010 

171 IFG<8143THENG-8143 

172 IFG>8161THENG"8161 

175 POKEG-l+CO. 1 : POKEG+COi 1 : POKEG+l+CO, 1 
180 P0KE0~1 > 1 12 : POKEG ; 1 13 : POKEG+L 110 

200 IFKO36THEN250 

201 PGKE36878/ 19 : FORLi«255TO2308TEP-l : P0KE36877. LI : NEXT 

204 X«0-22 

205 P0KEX+C0.7 

210 IFPEEK(XK>32THENOOSUB300 : OOTO220 

211 P0KEX^93 

215 X«X-22:IFX>7679THEN205 

216 XoX+22 

220 F0RV«0-22T0XSTEP-22:P0KEV.32:NEXT 

225 PGKE36877.0 

250 NEXTLJ:lFNfl>0THEN45 

255 NEXTUR 

260 UI»1:GOTG1015 

300 IFPEEK<X)»90THENCL<»CL-1 : POKEX^ 87 : OO8UB450 : RETURN 

305 POKEX+CO. 4 : POKEX+CO. 4 : POKEX+CO+21 . 4 : P0KEX+C0+23> 4 

310 P0KEX+C0-23.4:P0KEX+C0-2L4 

315 POKEX. 209 : POKEX-i-21 , 255 : POKEX'l-23^ 127 

320 POKEX-23. 127 : POKEX-21 . 255 

330 FORV«0TOWfl: IFB<V)<>XORDCV)<0THEN340 

335 IFRNDC 1 )>. 7THENECV>0 : NR»Nfl-l : SC«8C'f25 : GOSUB4O0 : OOTO340 

336 B(V)"INT(RNS< 1 )9K3~23) : GO8UB450 : G0T0345 
340 IFB<V}OX0RI}<V»eTHEN345 
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341 8C"SC+50 : B<V)»0 ■ Nfl-Nfl-1 : COSUB400 

342 POKEX-l , 32 = POKEX+1 > 32 • POKEX-22. 32 ■ POKEX-23. 32 ■ POKEX-21 > 32 

343 POKEX-44, 32 < POKEX-43. 32 ! POKEX-45^ 32 
345 NEXTV 

350 POKEX+21 . 32 : POKEX+23. 32 ; POKEX-23. 32 : POKEX-21 * 32 
355 RETURN 

400 P0KE36878. 15 '• P0KE36876/ 200 : FORL1»250TO150STEP5 
405 P0KE36877, LI = FORL2-150TO190 : P0KE36876. L2 : NEXTL2> LI 
410 POKE36876.0:POKE36877,0 
415 RETURN 

450 P0KE36878. 10 = P0KE36875. 145 ! FORL1««220TO255 

455 P0KE36877. LI ■ P0KE36875. 455-Ll = NEXT 

460 POKE36875,0:POKE36877,0 

465 RETURN 

1000 1<JI»2 

1005 COTO1015 

1010 MI»3 

1015 FORI»1TO1000:NEXT 
1020 PRINT"3SC0RE"SC 

1025 IFWI-ITHENPRINT-VOU STOPPED THE BIRDS" 
1030 IFWI'»2THENPRINT"THE BIRDS ATE THE CLOUDS" 
1035 IFWI«3THENPRINT"V0U COLLIDED WITH SOMEDEBRIS" 
1040 END 



Arkenstone 

Taking the part of the intrepid hero, you must wrest the arkenstone from the clutches of the 
evil dragon. 

As just about everyone knows, the arkenstone is a mythical gem prized highly by the Dwarves 
who lost it when the dragon sacked their mountain long ago. 

It may require some clever thinking to work out how to manipulate some of the objects you 
come across. 

Your commands are entered as sentences, pressing 'return' after each word and ending the 
final word with a fullstop. e.g. 
Pick( return) 
Up(return) 
axe. (return) 

Commands can be up to 9 words long. 

Pick/up/the/large/axe./ (/ = 'return') 

is just as valid as the example above. 

Directions can be entered as full words or as the first letter of the compass point, e.g. 
go/north./ orgo/n./ 

At each point in the game, the computer describes your surroundings and you are required to 
give your course of action. 
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Commands available are: 

go or move, 

catch, 

skewer, 

fill. 



kick, 
pick, 
swing, 

inventory, and 



listen, 

drop, 

throw. 



recover — This must be used when getting the arkenstone, 'Pick up' will not work. 
Happy adventuring! 

1 rtn)fi)K irktnstotitwiK 

2 Prlnt"B";chr*<14) 

10 forl«0to7!rtiidl»<i>;t$Cl)/**<i>/d»<i) 
15 ntxt dimo«(5> / vf <5) t IX<5) 
20 f orl«0to5 • re*do»< 1) . v*< i > ^ I5i< l ) : next 
25 ftl«l : dr*6 ! ln-2 ! t*»0 : bu"0 

94 9osubl000 

95 ifdr«-lthenl04 

96 ifsl«0aTidrM<l».Bihtndr*l« 

97 ifrY)d(l)<.9thtytl00 

98 lfjH»lthtinP»*iirtt"Tht draSon iiiii«ktftl":ftl«i0 

99 PriTtt"Th» drttem hidts tht irkenitOT>t."!lX<5)«l«t<rnd<l)*7):dr«l«<5> 

100 ifrnd<l».8ay)dsla0andln"drtheinPrint"The dragon has klU«d uouC'iitop 

104 in«i:prliftt"Vour course of aCJtieifi" ! inPutlf <lr»> 

105 liri"iin+I : if iY>>9th«TiPriY»t"Too v«rboit":9otol00 

110 if rlShWC i*< 1 n-1 ) , 1 )0" . "thtttlrtPutlf < l«> - 9Otol05 

111 Print "r 

115 m-iti-l 

116 l«<ir»)«left$<i*an).ltn<ifCiY»)-l) 

117 ifi$(iTi>a"iTiv«r)tor!4"then9oftubll00!9otol0O 
120 lfif<l)«"Pick"theYi9oftubl200:9oto95 

125 if i$< 1 )««droP "th«ti9o»ufal300 : 9oto95 
130 if i*< I )«"k ick " then9otubl400 : 9oto95 

135 if i$< I )«''mov*"ori$< l)""9o"th*n9o»ubl500 : 9oto94 

136 if i«( 1 )«"throw"th«Y)90f ub2300 : 9oto95 
140 fori-0to5 

145 if < lJi< i >lnoroX( i >=1 >«Tidi$( 1 )«v*< i > theTi9o»ubl600 : 9oto95 

150 Ti*xt:print"I don't undtrstand «ou. " = 9otol04 

155 data"Mount Oundabad'S "sheer waU to the we»t%e^l 

160 data"North Hirkwood"/'lot of treei%»w/20/'8outh Mirkwood"/ "lot of treei'Sen 

;31 

165 data"Lake Town's "River Rttnnin9"*we*24* "Wilder land". "River Running". we». 365 

170 data"the Miaty Mountains". eyrie. n.4/'the Lonels* Mountain". "dark hall"/wn>47 

175 d«ta"the Lonela Mountain". "Pile of treasur^e".s^6 

180 dataca9e. catch. 0. sPear. skewer / 1 . bucket. fi 11.2 

185 dataeagie. listen. 5 

190 dataaxe^swin9.6.ark enstone . recover . 7 

1000 Print"Vou are in ":printl*<ln):print"Vou can see " 

1005 ifln<3orln>4thenPrint"a 

1010 Printt*Cln>!forl«0t65 
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1015 iflJ«<i)«lYiAif»doyi<l)»0th©TiPrir»t"«iftd * :Prlntof(i> 

1020 tiext:ifdr»lntheif>Prlnt:priYit"Th* drii96n is h*rt" 

1025 ifdr«lnimdsl«lth»inPriint"But he's ilttPinfl" 

1030 return 

1100 Print "Wou hAve!" 

1105 forl-0to5:ifo?i<i)«ltheY)PriYit"a ";o*<i> 

1110 next: Print "*iftd are in " :printl*<ln) 

1115 return 

1200 fori«0to5 

1205 ifi;iCi>«ln«ndlf(in)"o$(i)Ando^<i>n0theno^<i>«i: return 
1210 next:prlnt"There isn't « ";i*(in>ireturn 

1300 ifi*<in>«"c«9e"thene*«0 

1301 f or i»0to5 : If oJi< i )<«l«ndlf < in>-o*< i )theno!ia J^o = I5i< i )aln : return 
1305 next;print"Vou haven't Sot a i«< In) : return 

1400 lfi«<in?0"dr«9on"thenprint"Kick what?"!return 

1401 ifdrOlnthenPrlnf'He isn't here.":return 

1405 sla0:Prlnt"Vou have awoke the dr aeon. return 

1500 ifsl«0aindln"drandrnd<l».5thenPrint"The draSon won't let sou.": return 

1505 d*«mid$<l*an),l;l):bo«0:ifbo«lthenU3)'»lYi 

1510 fori«ltolen<e*<ln>) 

1515 If d*«mld*(e*an), L l)thenTn-vaU(*ild*<d*< In). i. 1)> : return 

1520 next: Print "Vou can't move there" : return 

1600 forJ«ltoiniifof(i)ei»<J)thenlS20 

1605 next:print"Do what with it?"!return 

1620 oni+ldotol625. 1700. 1800.2000.2100.2200 

1625 forialtoin: if If <i>«"ea9le"thenl635 

1630 next!print"Catch what?" : return 

1635 ea«i: Print "The eaSle is now in the ca9e": return 

1700 forl«ltoin: if i*<l)«"dra9on"thenl710 

1705 next: Print "Skewer what?" : return 

1710 ifdrOlnthenPrint"The dra9on isn't here":return 

1715 ifrnd<l)>.8thenPrint"The dra9on is anSrs. he advances. " :sl«'0: return 

1720 Print "Wen done. you've killed the dra9on! " :dr»-l : return 

1800 ifln<3orln>4thenPrint"There's no-where to fill it.": return 

1805 Print«OK":bu«l: return 

2000 ifea«0thenPrint"Vou can't here him.": return 
2015 Print"The ea9le says:" 

2020 Print "What is best axe or sPear?Why not <!uench the worm's thirst" 
2025 Print "There is something sPecail in Mirkwood" 
2030 return 

2100 fori«ltoin: if i$<i)*"dra9on"then2l20 

2110 if i*<i)«"trees"thenPrint"That was clever-some trees fell down. " :return 
2115 mxt : print" eh? ": return 

2120 Print "The di*a9on is an9ry ..headvances. " :sla0: return 

2200 Print"Well done. you've completed your mission" :stoP 

2300 fori«ltoin: if i*<i>»"bucket"then2310 

2305 next:='rint"Vou. can't throw that. ": return 

2310 fori«ltoin: if i«<i)»"dra9on"then2320 

2315 next: Print "Not at that, ": return 

2320 ifdrOli''thenC'rtnt"He isn't here. " :return 

2325 Print "That has an9ered the dra9on.he advances" :sl«0: return 



30 



Gomoku 

A VIC version of the ancient oriental game. 

Levels 3 and 4 for a hard game, the others are for if you want to win. 
Moves are entered as x coordinate, comma, y coordinate, e.g. 2,3 
Attempt to get 5 stones in a row before your opponent. 
WARNING — This program takes a few minutes to make its move. 



I oosuBieee 

5 OOSUB280 

6 OOSUB100:OOTO67 
10 HI-0:U»0 

II QC-OC+l 

15 V-l 

16 X»l 

17 IFWO0THEN500 

20 IFB»(V«X>O0aSFiilTHEN65 

21 SF^^S 

22 HL»9:lF0C<dTHENHL«>GC 

29 TH«0iFORL«HLTOLESTEP-l :F0RP«-1T01STEP2 

30 IFTHO0THEN55 

35 FOfiSfOTO?! IFKX(O)lt(L4-}«lORX»(D>iiiL4-X>10THEN50 

40 IFV»<D)i|iLtV<:iORV^<D>«L-»-V>10THENS0 

41 IFTHO0THEN50 
49 OO8UB2000 

90 NEXTD 

99 NEXTP^L 

60 IFflBS<TH»RB8(HI )THENHZ-TH : HV*V : HX«X 

61 XFflB8(TH)«iHITHENHI«TH!HV«ViHX"X 
69 X"X-^1:IFX<11THEN20 

66 V«V+l!lFVaiTHEN16 
6? IFHI>flTHENOO8UB100 

71 BX<HV/HX>f-l!P«-l 

72 6O8UBS000 

75 INPUTHX/HV:P«1 

76 IFHX<lORHX>10ORHV<lORHy>10THEN75 

77 IFB«<HV;HX>O0THEN79 

73 OO8UB9000 

80 B5i<HV,HX>«liPRINT"0K" 
89 ODTO10 

100 C<«0 

109 HV«INT(RNS(1)III10H'1) :HX»ZNT(RNDCl)iiil0-*-l> 

110 C"C-t-l 

III IFC>400THENU»1 =0070900 

119 IFB»(HV;HX)O0THEN109 

120 HZ»9: RETURN 

200 PRINT"3 12345678910" : FORI-1TO10 : PRINTI ; 

209 IFK10THENPRINT" "i 

210 PRINT"I H mill I II" 
219 NEXTI: RETURN 

500 IFW«-1THENOO8UB9000:PRINT"I WIN" 



31 



509 IFW«iTHENPRINT"VOU WIN" 

510 END 

1000 PRINT"3 00-MOKU" 

1005 mz>'-i • x^.(0)<>0 •mi)»'i'mD»i- mz^d •• xk(2>oi 

1010 VX<3>»1 !XX<3>-1 iV?i<4)-l :XX<4)»0:VX<5)«1 :XX<5)— 1 

1015 VX<6>»0: XXCSJ—l : VX<7)«-1 = XJi<7)«-l 

1020 PRINT"ENTER LEVEL<l-4)" = INPUTLE: IFLE<1ORLE>4THEN1020 

1025 LE"5-LE ->OC»0 

1030 PRINT"T : RETURN 

2000 NP»0:OI"1 

2005 1FBX<V+VX<D)#DI / X+XX<D>#Dl>«»PTHENNP»NP+l 

2010 IFNP<BITHEN2025 

2015 I}I"DI+l;IFDK-LTHEN2005 

2020 IFNPOLTHEN2025 

2021 TH«NP«P:lFP*lflNDCD-4«»DF OR DF-4aD)THENTH"TH+2 

2022 IFNP«4flNDP=-lTHENW-P 

2023 IFNP«5flNDP-lTHENW«P 
2025 IFNP>0flNDP«lTHENDF'«D 
2030 RETURN 

5000 CO=»e 1 : CL-0 : IFP- 1THENCL«6 : C0»87 

5005 POKE38400-t-HV«22-i-HX't-2# CL POKE7680'i-HVl|i22-i-HX+2^ CO 

5010 pRiNT")ainoaH^^ miihihiiii m" 

5015 RETURN 



Lunar Lander 

Choose one of the three landing sights and guide your fragile lunar nnodule down to a safe 
landing. Points gained for landing depend on which site you land on. You get half points for a 
hard landing, none for a crash. 

Z thrusts you left, 

C thrusts to the right, 

M thrusts upwards. 

Your motion continues until countered by gravity or thrust in the opposite direction. 
As you approach your landing site you will get a close-up scan. 
Landing pads are depicted as green lines in the long-range scan. 
Can you land at the rightmost site for 1 50 points? 



10 SC-7680:COa38400:S*0 

15 P0KE36879. 8 : DV«0 = DX». 1 = V"0 : X«0 

20 PRiNT"nmiiiniiNiiiiinwiii nil mm m nil " 

24 PRINT"nfir Thi IbM " 

25 PRINT"n(ii ■ fl ■■ a 

30 PRiNT"na 1 ti m tr 

35 PRINT"n8) ■ M ■ fl 
40 PRINT"ndl i 81 
45 PRINT"nR ■ M 
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56 PRINT"ni ■ Bl I 

55 PRINT"nfl ■a I " 

60 PRINT"nfll I Ifl 

65 PRINT"nfl Em " 

70 PRiNTMB i ar 

75 PRINT"n« ■ 01 

80 PRINT'Tlfl BMH 
85 PRINT"nB 

90 PRINT"nai " 
95 F0RI«616aT08i65 : POKE I +30720^ 2 : POKEI / 160 : l€XT 

99 PRINT"a" 

100 P0KESC-t-INT<V)lk22-t-X;32 

105 V-V+DV i X"X+DX ! IFX>21THENX"0 
110 IFX<0THENX«21 

115 IFV<0THENV"0 

1 16 IFPEEK(8C-f-INT(V>«22-»-X)O32THENlO00 

117 IFV>10mOX<10THEN20O 

118 IFV>SRNOX>10.SRNOX<-16THEN4OO 
120 P0KEC0-t-INT(V2lli224-X<3 

125 P0KE8C'«'INT(V)W22'*-X^88 

130 DVaDV+.02:K"PEEK<197) 

135 DV«IIV-i-<K«36)/'8-('( (K«33)-i'(K>34> )/20 

140 DX«OX+(<K-34)~<K-33>)/'10 

145 OOTOlOO 

200 Vl«V:Xl»X!V«0:X<»(X-5)lli4-»-INT<RNS<l)ili6) :PO"ieO 
205 PRINT a " 

210 PRiNT"nb ar " 

215 PRINT"nfl ■ M " 

220 PRINT'TU ■ M " 

225 PRINT''nM ■ ■ " 

230 PRINT"nfll ■ fl " 

235 PRINT"nil ■ > " 

240 PRINT"nfll I di " 

245 PRINT"nfl ■ fli " 

250 PSINT"na I fli " 

255 PRINT"ni ■ H " 

260 PRINT"nBI ■ fli 

265 PRINT"nfll ■ fli 

270 PRINT'Tlfli ■ H 

275 PRINT"nBI AT 

280 PRINT"™ tr- tr " 
285 PRiNT"n« ■ mar- 

290 PRINT"ni ■ "fli " 

295 PRINT"nfil ■ flP 

300 PRINT'TM ■ fli " 

305 PRINT "Hfli Wmmm fli Wfllfll 

310 PRINT"ni BIBI mNNwiiflr li " 

31S FORI-8163TO8ie5:POKEI+3072Oi2iPOKEia6O!NEXTsPRINT"r 

320 P-SC+INT<V)#22+X '• POKEP. 32 • P0KEP+22i 32 •• POKEP+23^ 32 ' POKEP+21 / 32 

325 X»X+DX:V»V+DV 

326 IF<V<0flNDDV<-.5>ORX<lORX>2OTHENV«Vl-l !X«X1 i00T020 

327 IFV<OTHENV»0 
329 P>>8C'«'INT(V)i|i22'fX 
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330 IFPEEKCP-^ai )"184ORPEEK<P't-22}"104ORPEEK<P'i-23}-ie4THEN800 

335 IFPEEK<P)O32ORPEEK<P+21>O32ORPEEK<P+22>O32ORPEEK<P+23)<>32THEN1000 

34e p«p-8C : POKEP+CO. 3 = P0KEP+21+C0, 3 : P0KEP+22+C0. 3 : P0KEP+23+C0/ 3 

345 P«P+SC ! POKEP* 91 • POKEP+21 , 85 > POKEP+22* 249 : P0KEP+23> 73 

350 OV"DV-i-.02:K«PEEK<197> 

355 DVaDV+<K«36>/'8+< <K-33)+<K"34) )/20 

360 DX"DX+«K"34>-<K»33>>/'10 

365 OOTO320 

400 Vl-V ■■ Xl-X! V-0 i X-<X-8>#2+INT<RND< 1 >#7-3) ' PO-50 

405 PRiNT'^rnoiDinim iMmMwiiflriwuTi innraM" 



Aim BDTUTN M 




■11 ■ 


^ II 


415 rKINI Timm 




a 




420 rKJLiMl .IH 




la 


II 


425 PRINT"n« 




a 


II 


438 PRINT'Tia 


! 


a 


II 


435 PRINT"nM 


1 


a 


II 


448 PRINT"nBi 


■ 


la 


II 


445 PRINT"na 


I 


la 


II 


458 PRINTMB 


■ 


la 


II 


455 PRINT"n8 




H 


II 


460 PRINT"na 


■ 


■ 


It 


465 PRINT'TW 




^a 


II 


470 PRINT"nS 




a 


II 


475 PRINT "HS 


■ 


'^a 


II 


480 PRINT"n« 


B 


ai 


II 


495 PRINT"n« 


■ 


ei 


II 


490 PRINT"nil 




ai^ 


495 PRINT"na 


! 


lia mmmAW ni 



500 F0RI>>8163T08ie5 = POKEIh-30720/ 2 : POKEI , 160 : NEXT : PRINT"r : P0KE6174/ 181 = P0KE8175/ 
229 

505 00T0328 

800 IFPEEK<P+21>O104ORPEEK<P+22>O104ORPEEK<P+23>O104THEN1000 

883 IFV>7flNDPO«58THENPO»150 

884 IFRBS<DX». 50RflBS<IJV)>. 6THEN1088 

885 IFRBS<DX)>.20RflB8<DV>.15>THEN858 
887 S-84-P0 

818 F0RI»1T02888:NEXT:PRINT''XIII)M^^ BONE" 
815 00T0988 

850 PRINT" W IIW« M II^^ LRNBING" 
855 S-S+PO/2 

988 PRINT"rrMiiiBCORE"S 

985 00T01818 

1888 P0KEC0+INT<V)«22+X> 7 : P0KESC+INT<V>Hl22+X; 42 : P0KE36879. 24 
1810 FORI-1TO2808SNEXT 
1815 ENB 




Earth Defense 

As commander of Earth's defense systems, you must stop the invading missiles from 
reaching the ground. 

IVIove your sights around the screen and launch your missiles to intercept the enemy missiles at 
just the right moment. Be careful, you only have a limited supply of projectiles. 
The game will end if you halt the invasion or if 6 missiles hit the ground. 
W moves your sights up, 
A left, 
D right, 
X down, and 
S fires a missile. 
Earth is depending on you. 



1 PCKE36879..SI 

5 ppTWT"rTlliij**EflRTH DEFENSE***" : PRINT: PRINT" aENTW gKlLL LEVEL- (2-7)" 

6 INPUTSK:IF8I«20R8I07THENS 

10 PRINT"T :SHiie:F0RI«8i42T08163iP0KEL 169:P0KEI+3872e^5:NEXT 

15 P»-l : 00=30720 : X«10 : V»l I ■ CI«0 : SC«0 

20 FORW«1TOSK!NO=-1 ^P—l :SH"0:MI"1S+INT<SK^2) 

22 FORI»0TO5 : PX< I )«0 = m I >«10 = VX< I >«19 : NEXTI 

25 F0RI"8164T08185 : POKEI-fCOi 5 : POKEI . 169 : NEXTZ : P0KE38849^ 3 < P0KE38899/ 3 : P0KE38e51 1 
3 

26 P0KE8129/ n2!POKE8130/ 113:POKE813iai0 

30 FORI«0TOI4:H!i(I)>7680'^INT(RNIKl>l|i22) :8»<I)"l1'/i(I> :BK<I>-INT(RNS(l>lii3+21> 
35 NEXTI 

50 IFSK>4THEN53 

51 FORlB0TOSKiOOTO54 

53 FdRI"0TOW 

54 IFMK(I>*0ORI>l4THENi00 

55 OR«0:C"93 

56 IFDXa>-2lTHENC-78 

57 IFD«<I>"23THENC»77 

58 P0KEMKCI)4C0;7:P0KEIi;i(I)^C 
99m(.l Z >*m I > i IFI1»< I X81S6THEN65 

60 OO8UB2e00 i MX( I }-76804'INT<RND< 1 )l|i22> : S^< I )t>l1?j( I } : D^C I )-INT<RND< 1 >I|I3'»-21 ) : OOTO10 


65 IFPEEK(I1^( I ) )<>32THENOO8UBi00O : I FOR" 1 THEN 100 
70 P0KEM»(I)')-C0^2:P0KEI1K<I>^42 

100 K-PEEK(197) :iFK«i640RK«i4iTHENi80 

101 IFSH«lflNSCK<'17ORK«i8ORK«9ORK«26)THENSH"0 : OOTOi 10 
105 POKE76804'Vlli224-X^32 

110 X»X+<K«17>-<K"18> 
115 V-V+<K«9>-<K«26) 
120 IFX<0THENX>0 
125 IFX>21THENX«21 
130 IFV<1THENV"1 
135 IFV>19THENV"19 

140 POKE38400-HVill22-^X^ 3 : POKE7680-i'Vl|i22+Xi 91 
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150 lFP«-nHEN205 

155 FORJ«0TO5:IFPK<J)"0THEN200 

160 POKE76804>VXCJ>i22-«'X'^CJ>4a2 

165 V!i< J>"VX< J>+< VXC J)>m< J) )-<VJ4< J)CTVH< J) > 

170 X«<J>-X«CJ>+<XJi<J»TX»<J»-<XX<J)aXf«J)> 

175 IFXX< J)«TX5i< J)flNm< J)«m< J)THENOOSUB3000 OOTO200 

180 POKE36400'i-V»< J)lli22't-XH< J> J 7 : P0KE7680't>VX( J>lli22't'X^( J> ^ 46 

200 NEXTJ 

205 IFKO41THEN220 

210 IFP«5ORP«-2THEN220 

211 IFPX<P+l)»lTHENP-P+l!00T02l7 

215 P«P*1 : P?«<P>-1 : TX?i<P>-X : m<P>-V : 8H-1 ' POKE38400+X+V#22/ 2 

216 POKE36878^5:POKE36877^250 

217 IFP>5THENP-0 
220 IFCI>5THEN4000 

222 IFCI>5THEN4000 

223 IFP>-2THEN225 

224 P0KE38849^ 3 : POKE3e850i 3 : P0KE38851 » 3 : P0KE8129) 112: POKE8130^ 1 13 : P0KE8131 « 1 10 

225 NEXTI ! IFNO<WTHEN50 
230 NEXTM 

240 PRINT" WELL DONE^VOU STOPPED THE INVR8I0N" 
245 PRINT"VOU SCORED "8C«8K 
250 PRINT"flND LET"CI "MISSILES THROUGH" 
260 PRINT"VOU MERE ON LEVEL"SK 

999 POKE36678^0:POKE36877j0:END 

1000 E»n»< I > : IFE<8120THENRETURN 

1001 P0KE36678^ 15 : P0KE36877> 130 

1004 QR>>i:POKE36079^42 

1005 POKECO+E-21 > 7 5 POKECO+E-23/ 7 : POKECO+E. 7 : POKEGO+E-22/ 7 
1010 POKECO+E-44/ 7 : POKECO+E-43* 7 i POKECO+E-45; 7 

1015 POKEE/ 93 •• POKEE-23; 77 !P0KEE-21 / 78 • POKEE-22. 93 '■ POKEE-44, 64 
1 020 POKEE-43 > 73 <• POKEE-45. 85 
1025 POKE36877^200 

1030 IFE»8129 OR £-8130 OR E>8131THENP"-2 

1031 M»I ! OOSUB2000 : MK<M)a0 : NO-NO+1 

1035 POKECO+E^ 2 : POKEE/ 104 POKEE-23/ 32 P0KEE>22^ 32 = POKEE-21 » 32 

1 040 POKEE-43. 32 POKEE-44 , 32 POKEE-45. 32 

1045 P0KE36876; : P0KE36877. < CI-CI-t-1 : P0KE36879. 8 : RETURN 

2000 F0RNa8K<l1)T0MXCri)8TEPDK<i1> : POKEN. 32 : NEXTN 

2005 M7i(M>a76804-INT(RND(l>ili22) :SM<M)«MX<n> :DX<M)eINT<RND<l)llt3't'21> 

2010 RETURN 

3000 EX-X?i< J> I EV«VX< J) ! E-7680+EX+EV*22 : P0KE36878/ 6 : P0KE36877; 220 

3005 POKEE+CO/ 2 POKEE+CO+1 . 1 : POKEE+CO-22. 1 : POKEE+CO-21 / 1 

3010 POKEE+CO-23. 1 = POKEE+CO-1 » 1 : POKEE+CO+21 / 1 : POKEE+CO+22. 1 : POKEE+CO+23. 1 

3015 F0RLO1T04 : ONLOOTO3020. 3030. 3040. 3050 

3020 POKEE. 81 :GOTO30e0 

3030 POKEE. 87 !OOTO30e0 

3040 POKEE+CO . 1 : POKEE . 74 • POKEE+ 1 75 : POKEE-2 1 > 73 : POKEE-22 . 85 
3045 GOTO3080' 

3050 POKEE-1 . 93 = POKEE+1 . 93 : POKEE+21 . 74 : POKEE+22. 64 : POKEE+23. 75 

3060 POKEE-23. 85 : POKEE-22. 64 : POKEE-21 . 73 

3070 POKEE. 32 

3080 FORri«»lTO50!NEXTM.L 
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3085 POKEE-1. 32 : P0KEE4>1 , 32 : P0KEE4'21 / 32 : POKEE't'22; 32 • POKEE-i-23. 32 
3090 POKEE-23. 32 : POKEE-22. 32 : POKEE-21 , 32 

3095 MI«MI-l:XfiCJ>»10!VX<J>-19:P?4<J>-0!lFP«5THENP-0 

3096 IFMI-0THENP— 2 
3100 FORL-0TOW 

3105 IFMf{<L)OEflNDM?i<L>OE+lflNDMX<LK>E-22flNDMX<L)OE-21THEN3H5 

31 10 SC«SC'l'10lKU : MnL • GOSUB2000 : 11^(L)"0 : NO-NO+1 

3115 NEXTL : P0KE36878, : P0KE36877/ : RETURN 

4000 PRIHT"BCyi'OU HAVE BEEN DESTROVED" 

4005 PRINT"VO>J SURVIVED UNTIL flTTfiCK WflVE"W'S" 

4010 G0T0245 
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Nightmare Castle 

Wander around the graphically depicted locations in this realtime adventure. Watch out for 
the monster in your search for the treasure. 

There are doors which open and close, and one which requires the key to open it. In one of the 
rooms, there is an hidden passage-way through the wall which can only be found by trying to go 
through the wall. You may come across the invisible maze and even THE ROOM. 

THE ROOM is a strange place. All sorts of weird things happen, but you'll have to find out what 
yourself. CLUE: if the treasure was in the room, it won't be when you enter. 

The cursor controls at the bottom right of the keyboard move you around the screen. Going 
through a door means you enter another room. 

Objects are dropped by pressing the space bar. Pressing the divide key {/) will thrust your 
sword to the left, if you have one. 

You will leave a trail in the invisible maze, if you reach it alive. The game ends when you bring 
the treasure safely to the room where you began (or if you are eaten), NOT AN EASY TASK! 
THE OBJECTS ARE SHOWN AS FOLLOWS: 
YOU 

THE MONSTER 
THE SWORD 
THE TREASURE 
THE KEY 
TREES 
GOOD LUCK! 



5 P0KE65e.255 

10 SP«0:GP«0:R«i:SR»INT<RND<i)#4+i):GR-4:MR»GR+INT<RND<l>#3-l):Xl«10:Vl«10:KP-0 
15 CO-30720 : X«10 : V«10 = S«7703 : G-8145 
20 KRa9:K«7756iMP«32 
25 IFRND<1».5THENGR«10 

50 ONRGOSUBl 100. 1200/ 1300/ 1400/ I5m - \6m> 1700/ 1800/ 1900/ 2000 

100 Ps7is^90+X+V*22 

101 P0KEP/32:GETfl* 

102 IFRS5THENP0KEP/224 

105 DX«<fl$«''ir' )-<«*«"«" > : DV«<fl*«"n" >-<fl*»"SII" ) ■• D-DX+DV*22 

106 PE«PEEK<P+D) : IFPE«320RPE«224THEN115 

110 IFKP»lflNDPE«102THENn5 

111 IFPE«31THEN8P«l:00T01l5 

1 12 IFPEa28THENGP«l ! GOTOl 15 

1 13 IFPE-127THENKP«1 : GOTOl 15 

114 BXs'0:nV=0 

115 M=X+DX:V«V+DV 

120 IFR=3flNDX*13flNDVal lTHENRa4 : G0T012S 

121 IFX>0flHDX<21flNDV>0flNDV<22THEN145 

125 R«R+<X"0>-<X«21)+<<V-22)-<V«0>)#5 

126 IFX«0THENXs20 

127 IFX»21THENX=1 

128 IFV*0THENV«21 
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129 IFV«22THENV«1 

130 IFRs3flNDX«20THENX'»12:V»ll 
135 IFR«4flNrX*13THENXsl:V=!l 
140 GOTO50 

1 45 P«7S80+X+V*22 POKEP+CO, 2 : POKEP. 81 

150 IFSPalORSRORTHEN160 

155 P0KES+C0/7:P0KES,31 

160 IFGP«1ORGRORTHEN170 

1S5 P0KEG+C0.5:P0KEG,28 

170 IFKPalORKR<>RTHEN180 

175 POKEK+CO. 7 : POKEK, 127 

180 IFOPalflNDR»lTHENEND 

185 IFMRORflNDRNDC 1 )>. 9flNDMR>lTHENMR«MR+<MR>R)-CMR<R> •• I1P«32 = Xl«l = Vl«10 

190 IFMRORORRND<1)<.5THEN250 

191 M'»7680+X1+V1*22 

195 POKEM,MP:IFOR»»RORGP«ITHEN220 
200 IFSP-0THEN220 

205 IFRND< 1 ». 99THENMR»INT<RND< 1 )#9+l > = MP=32 = X1S20 = Vl=10 : OOTO250 
210 DXe<Xl<X)-<Xl>X) :DV*<VKV>-CV1>V> :D*DX+DV*22 
215 GOTO230 

220 DX»<Xl>X)-<XKX>:DV»<Vi>V)-<VKVVD*DX+DV#22 
230 IFPEEK<M+D>*32ORPEEK<M+D)«81THEN240 
235 IFGPs0THENDXa0:DV«0:DB0 

240 XlaXl+DX:Vl=Vl+DV:M=M+D 

241 IFXKlTHENXlBliVl-Vl+l 

242 IFX1>20THENX1*20 

243 IFV1<1THENV1*1 

244 IFV1>21THENV1«21 

245 MP*PEEK<7680+X1+V1#22) •■I1a7680+Xl+Vl*22 

246 POKEM+CO. 4 : POKEM. 94 

250 IFMR«RflNDXaXlflNDV»VlTHENEND 

251 IFfl*0" "THEN260 

252 IFSP«1THENSP=0:SRsR:S"7703 
255 IFGP=1THENGP»0:GR»R:G«8145 
257 IFKP«1THENKP«0:KR«R:K«7756 
260 IFfl*OV"ORSP«0THEN100 

. 265 Sa7680+X+V#22-1 = POKES+CO. 7 : POKES. 31 
270 IFX~laXlflNDV=VlTHENI1Re-l 
275 FORI*1TO100: next: POKES. 32 
280 GOTO100 
1000 P0KE646.CL 

1005 PRINT'TJrJ •■F0RI«iT022:PRINT" ar;:NEXT 
1010 F0RIs8163T08185 = POKEI+CO. CL = POKEI , 160 = NEXT 
1015 PRINT"aSI »ir^ 

1020 FORI»lTO20:PRINT"a )«r;:NEXT 
1025 RETURN 

1 100 P0KE36879.. 9 : CL«1 = GOSUB1000 
1 105 P0KE7689.. 32 : POKE7690; 32 : P0KE7691 , 32 
1 120 P0KE7921 > 32 > P0KE7943, 32 = P0KE7965. 32 
1125 RETURN 

1200 POKE36879.109:CL=5:GOSUB1000 

1205 POKE7900. 32 : P0KE7922, 32 = P0KE7944. 32 ■ POKE7690. 32 : P0KE7691 . 32 : P0KEr692; 
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1210 FORI=1TO20 

1215 CL=INT<RNri<n*460>+7702: IFPEEK<CL>032THEN1215 
1220 P0KEa+C0.5:P0KECL.88:NEXTI 
1225 RETURN 

1300 POKE36879,27:CLa3:GOSUB1000 

1 305 POKE7690 , 32 : P0KE769 1 . 32 : P0KE7692 . 32 

1318 PRiNT''»aHDaK)ia!itwHiHi»insir. raiiiiHiw^ jniiiniiii" ; 

1315 PRINT" a ]«lliinil i«iimillli milllli"; 

1328 PRINT"iS!Si!ia ]«IIIIUIIi nillllll xinniiiii" ; 

1325 PRINT" ^ XIIIIIMPil.^ )»nillllll^ 

1330 RETURN 

1400 POKE3S879.172:CL»2:GOSUB1000 
1405 POKE7900; 32 : P0KE7922. 32 : P0KE7944. 32 
1410 P0KE7921 , 224 : P0KE7943, 224 : P0KE7965/ 224 
1415 RETURN 

1500 P0KE36879. 136 :CLs2:00SUB 1000 

1505 FORI«1TO100 

1506 CL«7680+INT<RND<1)#506) : IFPEEK<CL)O32THEN1506 

1507 :POKECL.. 96: NEXT 

1510 POKE7900.. 32 = P0KE7922. 32 : P0KE7944.. 32 : PnKE7925. 32 
1515 POKE7690. 32 : P0KE7S91 . 32 = P0KE7692. 32 P0KE7713. 32 
1520 P0KE7735; 32 : P0KE77i4. 32 : P0KE7715.. 32 
1525 RETURN 

1600 P0KE36e79. 216 : CL«7 '• OOSUB1000 

1605 FORCL=1TO200 = POKE7680+INT<RNB< 1 >*506) 160 : NEXT 

1610 POKES 1 74 . 32 : POKES 1 75 . 32 ■■ POKES 1 76 . 32 : 

1615 P0KE792 1 . 32 : P0KE7943 , 32 = P0KE7965 > 32 

1620 P0KE7942.32:P0KE8153.32 

1625 RETURN 

1700 POKE36879.62:CLs0:GOSUB1000 

1 705 POKE7900 , 32 = P0KE7922 . 32 : P0KE7944 . 32 '• P0KE792 1 .■ 32 : P0KE7943 .. 32 = P0KE7965 32 

1706 IFRND(1».5THENP0KE8174.32:P0KES175..32:P0KES176..32 

1710 PR I NT ''mmmm hm mmmi m * i i i ■ ■ w ■■ nm mmm' 

171.5 PRIMT"««bii!R»! a ummmL mi 

1730 RETURN 

1 800 P0KE36879 , 56 = CL=2 : GOSUB 1 000 

1805 POKE7900,32:POKE7922.32:POKE7944..32 

1806 IFRNIX 1 », 2THENP0KE7921 > 32 : P0KE7943, 32 : P0KE7965. 32 
1810 P0KE8174. 32 = P0KE8175, 32 = P0KE8176; 32 

1830 RETURN 

1<?00 PnKE36S79.. 14 : CL=5 : 003031030 

1 905 POKE7900 .• 32 = P0KE7922 ; 32 = P0KE7944 .. 32 

1910 PRINT"i9Ml«K^ Dfllll^" 

1920 RETURN 

2000 P0KE36879. 184 : CL»4 : GO8UB1000 

2005 POKE7900,32:POKE7922..32:POKE7944.32 

2020 MR=R;Xi.=i9;Vl=20 

2025 SP«0 : SR=INT<RND< 1 )*3+e) : S=7703 

2030 KP=0 : K«7756 = KR=INT(RND< 1 >*3+l ) 

2031 GP=0 : GR=4 : G=81 45 
2035 RETURN 
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Checkers 

Challenge the computer to the well known game of checkers. 
Enter your move as x coordinate followed by y coordinate, e.g. 

FROM 

?AF 

TO 

?BE 

Try not to let the VIC win. 



1 GOSUB9000 

59 riO=0 

60 GOSUB7000 

1000 PRmj"miw(B(osiS!M^ 

1005 PRINT"THIS MOVE":MO«0:iNPUTFH$ 
1010 PRINT''nrrO" : INPUTTH* 
1050 PRINT'-.TSTflND BV" 

1060 X*-LEFT*<FH«; l> = V*=RICHT*<FH$. 1) :FX«fl8C<X$) ••FV"fl8C<V*> 
1065 X$«LEFT»<TH»^ 1) :V$»RieHT*<TH*/ 1> :TX«fl8C<X$> :TV»flSC<V*) 
1070 FX«FX-64 : FV-FV-64 = TX»TX-64 = TV-TV-64 
1420 t1O»0 

1430 flXCTV. TX)sflX<FV; FX) ■ flJiCFV. FX)«B 

1450 IFflBS<TV-FV)>lTHENM0»l!flJi<Fy+<<TV-FV)/'2>^FX+«TX-FX>/2))«B:T»T+l 
1470 OO8UB?e00 
2000 V*8 
2006 X«8 

2020 IF R^<V;X)OC AND R^.(V/X><>KTHEN2109 
2030 IFfl?i<V*X)"C fiND V-STHENflXCV^XJ-K 

2040 FORD»0TO3 

2041 Q«-l 

2045 IFX-)'2)tiX(SKl OR X')-2«XCI)»8THEN2090 

2046 IFV+2#V<DK1 OR V+2*V<D)>8THEN2090 

2050 IF<flK<V+V<D).X+X(D)>«iH OR flK<V+V<I)>*X+WD»-W)flNDfiJi<V+2«V<D>^X+2!liX<D»-BTHE 
NQoB 

2070 IFR;'.<V^X)0K RNDS>lTHEN210e 
2060 IFQ>-1RNDQC4THEN212S 
2090 NEXTB 

2100 IFfl5i<V,X)«HflNDV«lTHENRX<V/X)-W 

2U0 X-X-1 : IFX>0THEN202e 

2115 V«V-1 : IFV>0THEN2006 

2120 IFQ»-1THEN2350 

2125 PX«X+2*X<Q):PV«V+2#V(Q) 

2130 S«»S+1 

2135 R»(V'«'VCQ>/X'i'X(Q))«B 
2140 flXCPV,PX)"flJ4(V.X) 
2145 fl?'.<V^X)«B 
2150 OOSUB7000 
2155 M«-l 
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2160 F0RD»eT03 

2165 IFPXt2«X(0Kl OR PX+2#X(I))>eTHEN22ee 

2166 IFPV+2*V<D)<1 OR PV+2*V<D)>STHEN2200 

2170 IFfl«<PV+V(D).PX+XCD))OHflND fl?i<PV+V<D)/PX+X<D)K>WTHEN2180 

2175 IFfl?i<PV+V<D)#2> PX+2«X<D) )«BTHENM«D 

2180 IFR^.CPy^PX>OK RNO O>1THEN2210 

2190 IFI1>-1THEN2210 

2200 NEXTD 

2210 IFM— 1THEN50 

2220 flX(PV+V<l1>.PX+XCM»»B 

2222 flX<PVt2*V<ri) , PX+2#X<M) )"flX<PV^ PX) 

2224 fl?i(PV>PX)aB 

2226 S^S+l 

2230 GOTO50 

2350 V«0 

2360 PV«INT(RND<l>i|l8<f-l> ;PX"INTCRND<i>il(8-*-l> 

2370 V-V+1 

2371 Q— 1 

2379 IFV>400THEN2440 

2380 IFFIXCPV, PX)OCflNDfl«<PV. PX)OKTHEN2360 
2390 FORDO0TO3 

2395 Q—l 

2396 IFPV+V<D><10RPV+V<D»8THEN2425 

2397 IFPX+X<D)<10RPX+X<D»8THEN2425 
2400 IFR»(PViPX>"CflNI)0>lTHEN2425 
2410 IFRX<PV+V<D)*PX+X<D))-BTHENQ-D 
2420 IFQ>-1RNDQ<4THEN2460 

2425 NEXTD 

2430 IFV<401THEN2360 
2440 F»«"L" 
2450 GOTO7O00 

2460 flX<PV+V<Q>^PX+X(Q))«Rfi<PV*PX> 
2470 RJ4<PV.PX)-B 
2490 GOTO50 

7000 PRINT"M« R6C0EFGH" 
7005 F0RV»1T08 = P0KEC0+V*22. 1 • P0KESC+V*22/ V 
7010 FORX»lTOe:CL»0: IFR«(V.X)«160THENCL-6 
7015 IFfl?iCV.X)»C OR RX<V.X>KTHENCL»5 
7020 IFfly.<V;X)*H OR fl?i(V.X)«WTHENCL«»l 
7025 P0KEC04-Vi|l22-i-X^ CL : P0KESCtyili22-t-X^ RK(V/ X) 
7030 NEXTX/V 

7035 PRINT'-nOMIH^^ " :PRINT".'>^UI1RN"T 

7040 PRINT" 
7045 PRINT" 
7050 PRINT" 

7210 IFF*»"L"THENPSINT:pRINT"n« CONCEDE THE GRME":ST0P 
7230 IFSal2THENPRINT:PRINT"nnTTTni WIN"!STOP 
7240 IFT«12THENPRINT!PRINT"limTmi'0U WIN" 'STOP 

7260 Uf"""aFI10"lTHENPRINT"iaD0iD^^ VOU JUMP RGRIN "^INPUTU 
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7265 t10«e 

7310 IFLEFTfCU*^ I )«"V"THENFH*»CHR*<TX+64)+CHR*<TV+64) : QOTO1010 
7320 RETURN 
7900 STOP 
9000 mmY.<.8,B> 

9005 V<0)«i:X<0>»»-l:V<l>»i:X<l)"l 
9010 V<2)«-1 ' XC2)»»-1 : V<3?««-1 •• X<3)«1 
9050 H«209:C«215:i4i>139:K"lSl 

9060 B«l60:Q*-l:F*«"":S«0:T-0 

9061 CO»38400:SC"7680 

9065 FQRV«lTOe: IF2*INT<V/'2)"VTHENFORXslTO78TEP2:GOTO9075 
9070 F0RX-2T08STEP2 
9075 fl?i<V.X)«l60 

9080 IFINT<X<'2)#2«XTHENflJi<V/X-l>«32 
9085 IFINT<X/'2>*20XTHENflJi<V. X+1 >'«32 
9090 NEXTX,V 
9115 FORV^ITOS 

9120 IF2#INT<V/'2)«VTHENF0RX«1T07STEP2 = OOTO9130 
9125 F0RX»2T088TEP2 
9130 fl?{<V.X>"C 
9135 NEXTX/V 
9140 F0R¥«6T08 

9145 IF2#INT<V/'2)«VTHENF0RX»1T07STEP2:C0T09155 
9150 F0RXe2T08STEP2 
9155 flJi<V,X)"H 
9160 NEXTX.V 
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9165 FH$""" •TH$<*"" 

9380 P0KE36879* 8 :PRINT"3IDRflU6HT8": print: PRINT" «30 VOU WRNT FIRST MOVE" 
9310 INPUTV$:PRINT"3"!lFLEFT*(V$a>«"V"THENRETURN 
9340 GOSUB7000 

9350 fl«INT(RNDa >*3+l )#2 •• Q"INT<RND< 1 )#2> 
9370 RJiCS+VCQ) * fl+X<Q> )*C : flX<3^ fl)«160 
9390 RETURN 



Dambuster 

Destroy the enemy's dam and help win the war. 

You are given a 3-D, Panoramic view of the dam and the surrounding countryside. You must 
line up your plane as it approaches the dam and drop your bouncing bomb at the right moment. 
Z moves your plane left, 
C moves it right, and 
M drops a bomb. 

You begin with five planes, but beware of the enemy flak. 



5 POKE650/129 

10 PRINT"n" •• P0KE36879; 88 ■ CO=30720 

15 FORI=7680TO7921 = POKEI , 168 = POKEI+CO. 3 : NEXT 

20 PRiNT'-immnnD^ Miiimiii niiiiiHi 

21 PRINT"UIIIIIIII 

25 PRINT".Tk -Sk. llliilMi maer- .IIP fll I" 

26 PR I NT "k "BUiiiiai)(nni" 

30 PRIHT"i/ryTl ^-IWWi»il--OBSlN3<K" 

35 F0RV»7954T0ei85STEP22 = J-INTC <V-7910 V22) 

40 F0RX»V-JT0V+J+1 : IFX>8185THEN45 

41 POKEX^160:POKEX+CO/6 

45 NEXTX : IFV-JC812iTHENP0KEV-J. 233 

46 IFV+J+K-8185THENP0KEV+J+1 . 223 

47 NEXTV 

49 F0RPL=1T05 

50 i^l"160 - U2"U1 : i43»Wl ■ m'>]Al ■ N"N1 : B1»U1 : B2==U1 : Rl"l«ll : R2-U1 : R3«U1 
55 Xa8102-i-INT(RNO< 1 >«12> : B»0 : S«l 

60 P0KE3687e; 4 : P0KE36877^ 129 : SE»0 

61 FLaINT<RNDCl?#253)+7955 

65 P«PEEK<FL) : Pl-PEEKCFL+1 ) : P2«PEEK<FL+22) i P3-PEEKCFL+23) 

70 IFP"32ORP1»32ORP2"32ORP3»32THEN100 

71 POKE36879/40 

72 P0KE36878^ 10 : P0KE36S77^ 288 

75 POKEFL+CO; 7 = POKEFL+CO+1 . 7 : POKEFL+CO+22. 7 : POKEFL+CO+23. 7 
80 POKEFL; 213 : POKEFL-i-1 / 201 = P0KEFL4-22^ 202 : POKEFL+23/ 203 
85 IFP«120ORPl»120ORP2«120ORP3«12eTHENSEfl 

66 POKE36878<4:POKE36877>2S0 
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90 POKEFL+CO* 6 : POKEFL+CO+1 1 6 - POKEFL+CO+22. 6 = POKEFL+CO+23. 6 
91 

95 POKEFL. P : POKEFL+1 > PI : POKEFL+22. P2 ■ POKEFL+23. P3 

96 IFDE=0THEH99 

97 P0KE36e78. 15:FORI«200TO128STEP-l :P0KE36876. I :FOR>1TO10:NEXTJ. I 

98 P0KE36877. 150 

99 P0KE36879^ 88 • P0KE36877< 129 

100 POKEXi N ! P0KEX+22> Bl : POKEX+44. B2 : POKEX+20. Wl = POKEX+21 * M2 : POKEX+23; W3 = POKEX+24 
.W4 

105 POKEX+65. Rl = POKEX+66; R2 = POKEX+67^ R3 

106 OETR« 

110 X=X-22+<fl*="Z")-<fl$«"C") 

111 IFX<«»7702THEN1000 

112 IFSE"1THEN1000 

115 NsPEEKCX) !Bl«PEEK<X+22) :B2-PEEK<X+44) : Wl»PEEK<X+20) iW2-PEEK<X+21) 
120 W3«PEEKCX+23) : W4»PEEK<X+24) !Rl-PEEK<X+65) :R2*PEEK<X+66> :R3-PEEK<X+67) 
125 POKEX^ 226 = POKEX+22/ 87 = POKEX+44. 32 : POKEX+20; 120 = POKEX+21 , 120 : POKEX+23; 120 
130 POKEX+24. 120 : POKEX+63/ 235 : POKEX+66/ 209 : POKEX+67, 243 
140 FORI-1TO50:NEXT 

145 IFB«0flNDFI$«"M"flNDX>"7822THENB-X+66 ! D-22 

150 IFB»0THEN60 

151 J«l 

155 POKEBa60:B»B4-D 
160 IFB<«7932THEN2000 
165 IFB>ei85THENS>-22 
170 IFB>8058THENC«209 

175 IFB<«8058THENC«174 

176 IFPEEK<B)O160THEN2000 
180 POKEB.C 

185 IFB-X>1 10flNDD»22THEND*-22 : GOTO200 
190 IFB--X<«88THEND'»22 
195 OOTO250 

200 POKEB-1;205 --POKEB+1;206 

201 POKE36877;240 

205 FORI-1TO100 : NEXT :P0KEB-1/ 160! POKEBH-l. 160 

210 T-0:GOTO60 

250 J-J+1 : IFJ<=2THEN155 

255 GOTO 100 

1000 P0KE36877. ■ P0KE36878. : P0KE36876. : IFB>0THENPOKEB> 160 
1005 FORI«1TO1000:NEXT:NEXTPL 

1010 POKESSe^ '■ P0KE36878. = P0KE36877^ : P0KE36876i 
1020 FORI»lTO100O:NEXT:PRINT''»aillllDlinnillflkHflRD LINES" 
1025 END 

2000 I FPEEK < B > - 1 60BNI)B>7866THEN2050 
2010 P«PEEK<B) :POKEB^42:FORI-1TO100:NEXT 
2015 POKEB;P 

2020 FORI«iTO100 : NEXT = B»0 = T«0 = GOTO100 

2050 IFD-»-22flNDB-X>88THEN2010 

2051 IFD«22flNDB-X<-66THEN2010 

2052 POKEB+CO. 2 : POKEB+l+CO. 2 : POKEB^ 127 : POKEB+L 255 

2053 P0KE3687d; 15 ■ P0KE36877; 150 

2055 FORI-1TO200:NEXTI 

2056 PGKE36878i 10 = PQKE36877^ 200 
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2060 PRINT''»«IKI)^ 
■ " 

2065 PRiNT"iiiiniiia k 

2070 OOTO1010 



■ Mlllllllll k I 



Smash 

Try and break through the double wall with your angled bat. 

You begin with 5 balls and must gain points by knocking holes in the wall. There are 
points to be gained on the bricks higher up. 
The speed of the ball increases as your score gets higher, so beware. 
Z moves your bat left, 
M moves it right. 

1 HI»0:POKE3687e.l2 

2 PRINFUmH* SMASH #**":PRINT:PRINT"PRESS fl KEV TO START" 

3 GETfl*:lFfl*a'""THEN3 

5 P0KE36S79, 8 : X«RND<-TI ) : 8-0 : H«5 - BS"3 

18 PRINT"3I1 SCORE BALL HI B 

15 F0RI«1T019: PRINT"! 1"; :NEXT 

20 P0KE38862.6:P0KE38883.6:P0KE8142. 181 :P0KE8163. 183 

25 PRiNT"a«)W)aii w 1 1 II 1 1 1 1 1 1 1 II n 11 II wi 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 "; 
30 PRiHT"ii M 1 1 1 II 1 1 1 M II II 1 1 1 1 1 w i 1 1 1 1 1 1 1 1 1 1 1 1 1 nmr"; 
35 pRiNT"»>i[ii>iw[ rrnri 1 1 1 1 1 1 1 1 1 1 1 1 1 > w 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 "j 

40 PRINT"|ii i l i I M 1 1 1 1 I II 11 1 1 1 1 1 1 1 mn 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 "; 
45 PRINT"WI U 1 1 1 I 1 1 1 1 1 1 1 11 II 1 1 1 1 tfg 1 1 M 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 " 
50 SC=7680:CL=38490:B=8152 

55 DX=INT<RND(U#3-l):DV*-i:X=ll:V=20:PRINT"Jffl";TflB<17);6-LI 

56 PRiNIMTWIiiWHI 

60 F0RI=38863T0388b2 = POKtl ; 1 : NEXT 
65 POKEB-1 . 108 ; POKES. 98 = POKEB+1 , 123 

70 F0RI=1T0BS 

71 K=PEEK(197) : IFKO33flNDKO36THEN100 

75 POKEB-1 . 32 ■ POKEB+1 , 32 : B=B+<K=33)-<K=36) = IFB<8144THENBa8144 

80 IFB>8i61THENB=8i6i 

85 POKEB-l . 108 : POKEB/ 98 ■ POKEB+1 . 123 

1 00 NEXT I : PR I NT " mnm" S : I FS>200THbNBSa'2 : IFS>g00THENBS« 1 

101 P0KESC+V*22+X. 32 : P0KECL+V#22+X. 1 : V=V+DV = X=X+DX 

102 IFV>21THEN1008 

103 IFK>lfiNDX<20THENieS 

1 04 I FX<2THENDX= 1 : F0KE36876 . 250 ; GOTO 1 50 

105 IFX>19THENDX=-1 :POKE36876.250!eOTO150 

106 IFV<4THEND¥»i :P0KE36876. 175:G0T0158 

110 IFPEEK<SC+V*22+X)-32THEN150 

111 POKE3S876.200 
115 P=FE£K(SC+V*22+X) 

120 IFP«103THENDV=-DV : DK=-i : G0T0145 

125 IFP=123THENDV=-DV:DX»1 :00T0145 

130 IFPa98THENDV=-DV •• DX=INT(RND<; 1 >*3-l ) : G0T0i45 

1 35 3=8+ 1 ■■ 3=S- < V<7 ) * 1 0- C V<5 ) *38 
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140 P0KESC+V*22+X/ 32 ■ DX^INKRNDC 1 >#3-l ? 

141 IFRND<O>.01THtNDV=-DV 
145 ¥=V+DV : K=X+DX 

150 IF>«1ORX>20THENJ<=X+DX 

151 IFV<;3THENV=V+DV 

152 POKE36876.0 

155 P0KECL+V#22+X* 1 = P0KE8C+V»22+X/ 81 
160 OOTO70 

1000 FORI«ITO2000 : NEXT : LI=LI-i ■ IFLD-0THEH53 
1010 IFS>HITHEHHI=S 

•I0i 4 FiDR I = 1102309 = NEKT : PRIHT"aeCORE"S : PRINT^'HrMSI 

1015 IFHI=STHEHPRINT:pRIHT"VOU GOT THE HI SCORfc; WELL DONE!" 

1016 FRINT"aMflNT ANOTHER GflME?" = POKE 198; 
1020 GETB$:lFfl$-""THEN1020 

1030 IFfl$«"V"THEN5 

1035 IFfl«»"N"THENPRINT"OK. jaiilBVE. THEN. " : END 
1040 PRINT"! DON'T UNDERSTAND" = GOTO 1028 



Dogfight 



Out-maneuver and out-shoot your computer controlled opponent in this game of flying death. 
Avoid crashing into the mountain or the enemy's plane as you line yourself up for a shot. The 
game ends if you crash or either of you are shot down. 
A turns you left, 
D turns you right, 
W moves you up, 
X down, and 

S fires your gun at the computer's plane. 

You are the black plane, the computer is red ('Red Baron', perhaps). 



^■iiir "Qaiiiiiir ^" 

-^11 

niiiiiiiiiiiiir 



35 F0RI«8167T08182 : POKEI+CO, 5 = POKEI . 160 : NEXTI : P0KE8182. 223 

100 P0KE36878. 4 : P0KE3S87?.. 135 

101 POKEX. 32 : POKEX+1 . 32 : POKEX+2. 32 : POKEX+3. 32 = POKEX-22. 32 : POKEX-21 , 32 = POKEX-20. 3 
2 

105 POKEX-19. 32 = POKEX+23. 32 : POKEX+24. 32 
125 GETA* ; X«X+C <A$=" W" )-<A$«"X" ) >#22 
130 IFA*="A"THENV«~1 
135 IFA$«"D"THENV«1 
140 x«X+V 

145 IFX<7702ORX>8160THENXb7988 = V=l 

150 IFPEEK<X)O32ORPEEK(:x+l>O32ORPEEK<X+2)O32ORPEEK<X+3K>32THEH1000 



5 CO=30720:POKE650a29 

10 P0KE36879,187:PRINT"»T; 

15 X«7988:V«1 :X1«7961 :V1*-1 : 8=0: 81=0 

20 PRINT"]iniMMB^^ 

25 PRiNT"»iniiiiia "Viiaiiieiiiiir 

30 PRiNT"»nMir niiiiiHiiiiir 

II 
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155 IFPEEK<X-22K>32ORPEEK<X-2OO32ORPEEK<X-20>O32ORPEEK<X-19)O32THEN1008 
160 IFPEEK(X+23><>32ORPEEK<X+24K>32THEN1000 

165 POKEX+l+CO, : P0KEX+2+C0. : P0KEX-22+C0. = P0KEX-21+C0. = POKEX-20+CO. 6 : POKEK-19 
+CO.0 

166 POKEX+CO. 8 = P0KEX+3+C0. 8 = PCKEX+23+C0; 8 
170 IFV=iTHEH200 

139 POKEX, 187 : POKEX+1 , 196 = POKEX+2. 160 : POKEX+3, 236 
185 POKEX-21 . 85 : POKEX-20. 73 = POKEX-19. 233 = POKEX+23. 81 
190 G0T02i5 
200 POKEX+24+CO,0 

205 POKEX. 251 : POKEX+1 , 160 : POKEX+2. 196 = POKEX+3. 1 15 
210 POKEX-22. 223 = POKEX-21 . 85 = POKEX-20, 73 = POKEX+24. 81 

215 POKEXl , 32 '• POKEXl+1 ; 32 = POKEXl+2; 32 = POKEXl+3/ 32 = POKEXl-22. 32 : POKEXl-21 . 32 = POKE 
Xl-28.32 

220 POKEXl-19. 32 : POKEXl+23. 32 : POKEXl+24. 32 

221 IFRNDa».9THENXl«Xl+22 

225 IFPEEK(Xl+Vl*5+22:i«2230RPEEK(:Xl+Vl*5+22)«233THENXl=Xl"22: 0070258 

235 IFPEEK<Xl+Vl#3)«460RPEEK<Xl+Vl*3+22)«46THENXi=Xl-22: 0010250 

236 IFPEEK<Xl+Vl#2)«46flNB3K>Xl+Vl*2THEHXl=Xl-22:Vl«-Vl: 0070258 

240 IFRHD<1)>.97HENV1«-V1 

241 IFRND<1)>.97HENV1»-V1 

242 IFRND<l)>.97HENXl«Xl-22 
245 X1=X1+V1 

258 IFXK7702ORX1>81607HENX1«7961 : V1--1 

255 POKEXl+l+CO. 2 : P0KEX1+2+C0. 2 = P0KEX1-22+C0. 2 = P0KEX1-21+C0. 2 = POKEX1-20+CO. 2 
260 PCKEX1-19+C0.2 
265 IFV1'=17HEN300 

278 POKEXl+CO; = P0KEX1+3+C0. 2 : POKEXl +23+C0. 8 
275 POKEXL 187: P0KEXl+M96:P0KEXl+2. 160: POKEXl +3 ..236 
280 POKEXl-21 . 85 : POKEXl-20. 73 : POKEXl-19. 233 : POKEXl+23. 31 
285 G070315 

300 POKEXl+CO. 2 : P0KEX1+3+C0.. : P0KEX1+24+C0. 8 

305 POKEXL 251 :P0KEX1+1. 160: POKEXl+2. 196:P0KEXl+3; 115 

310 POKEXl-22. 223 : P0KEX1~21 . 85 : POKEXl-20; 73 : POKEXl+24. 81 

315 IFfl*="S"flNDS«07HENS«X-l : D«V : IFVel7HENS='X+4 : P0KE36877. 248 

320 IFS«07HEN400 

325 Jsl 

330 POKES, 32 : S^S+D : S=S-7680 : SPaIN7<S/22) : SP«S-SP#22 : S«S+7688 
335 I FSP=0ORSP=2 1 7HENSa0 : GO7O400 

340 IFS=XlORS=Xl+lOR<S«Xl-21flNDVla-l)OR<S=Xl-20flNDVl«n7HEH2000 

345 I FPEEK < S > <>327HENS=3 : J=2 : GO7O400 

350 POKES+CO.0: POKES; 46 

395 J=J+1 : IFJO7HEN330 

400 IFS1*07HEN500 

425 J=l 

430 P0KESL32:S1=S1+D1 :Sl«Sl-7680:SP=IN7<Sl/22) :SPsSl-SP*22:Sl«Sl+7680 
435 IFSPa0ORSP«217HENSl*0 : 0070508 

440 IFSl=XORSl*X+lORCSl«X~21flNDV«-l)OR<SlsX-20flNDV=l>7HEN1080 
445 IFPEEKOl )<>327HENS1=0 : J=2 : 0070508 
450 POKES i +C0 . 2 ; POKES 1 . 46 
495 J=J+1 : IFJ<37HEN430 

500 IFSl=0fiNDRND<l».97HENSl=sXl-2:Dl*Vl : IFV1«17HENS1=X1+5:POKE36877.240 
505 GO7O100 
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1009 XlsX 

2000 P0KE36878. 15 

2001 POKEXl , 32 : POKEKl+1 . 32 = POKEXl+2, 32 : POKEXl+3, 32 : POKEXl+23. 32 : POKEXl+24. 32 
2005 i'OKEXl-22. 32 : POKEXl-20. 32 •• POKEXl-19. 32 

2010 F0RI«X1T08185STEP23 

2011 P0KE36S75. <250-I/35)*e 

2015 POKEI+CO. 4 : POKEI+CO+21 , 4 : POKEI+CO-21 , 4 : POKEI+CO-23. 4 

2020 POKEI ,. 160 : POKEI-21 , 255 = POKEI+21 > 255 : POKEI-23, 127 

2021 FORJ=1TO100:NEXT 

2025 POKEI+CO. : POKEI+CO-23. : POKEI-21 > 32 : POKEI+21 ; 32 
2030 NEXT 

2035 1=1-23 : POKEI+CO. 7 : POKEI+CO+1 . 7 : POKEI . 127 : POKEI+1 , 255 
2640 P0KE36879.42 

3000 POKE650. : P0KE36878. 8 : P0KE36877. : P0KE36875. 8 
3005 GOTO3005 



Night Raid 

Under cover of darkness you pilot your plane over the city, picking out your target in the light of 
the flashes of enemy flak. 
Try and bomb the reactor before you are hit by flak or one of the enemy's ground to air missiles. 
W moves your plane up, 
X down, 

D accelerates you forwards (you already move forwards), and 

A backs you up. 

S will drop a bomb on the city. 



5 00=30720 

10 P0KE36879, 8 = PRINT"T = Ma0 : M1*0 = B«0 '• P-7680 : F«0 
15 PRINT'')<MMBIl^^ I WIS ! \" 

20 PRiNT"»»ii^ m I a B er" 

25 PRINT"WISI «! II I 81 ! flS IE! ! H " 

30 PRiNT"riii.t{i /^a ■ -ai H Si Bn.iM " 

35 PRINT"na ■(" 

40 F0RI«8142T08185 : POKEI+CO. 8 : POKEI * 169 : NEXT 

50 P0KEP/32:P=P+1 :K«PEEK<197) :P«P+<Kal7)*2-<K«18) 

55 PbP+<<K«9>-<K»26))*22 

60 IFP<7680THENPs7680 

61 IFP>7965THENP=P-22 

65 IFPEEK<P)O32FINDPEEK<P)O77PINDPEEK<P)O89THEN1000 
70 P0KEP+C0,3:P0KEP.62 

75 IFM>0ORM1>0THENPOKE36878; 5 = P0KE36877. 138 

76 IFM<lflNDMKlTHENPOKE36877.0 
80 IFM>0bRM<0THEN100 

90 IFRNDC 1 )>. 95THENM«8029 : POKEM+CO, 4 : POKEM. 42 : FORI=1TO100 : NEXT 
100 IFri<lTHEN150 

105 POKEM+CO, 1 : POKEM. 77 : POKEM+1 . 32 : P0KEI1+22, 32 '■ M=M-23 
110 IFn>7679THEN115 
Ul I1«0 
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i 12 FnRI»8029TO7680STEP-23 = POKEI , 32 : HEXT : P0KE36877, : GOTO150 
115 IFPEEK<M)=32THEN135 
120 IFPEEK<M)=62THEN1000 

1 25 I FPEEK < M ) =4eTHENP0KEM , 42 ■• FOR I = 1 TO 1 00 ^ NEXT = B=0 = M=0 = GOTO 1 1 1 
135 POKEM+CO. 2 = POKEM+l+CO. 2 ■ POKEM+CO+22. 2 
1 40 POKEM ; 1 27 ! POKEM+ 1. 1 23 : POKEM+22 ; 1 24 
150 IFM1>0ORM1C0THEN170 

1 63 I FRHD < 1 ) > . 95THENM 1 =8062 = POKEM I +C0 . 4 : POKEM 1 . 42 : FOR I « 1 TO 1 00 = NEXT 
170 IFMK1THEN220 

175 POKEMl+CO+22. 1 ••P0KEMl+22,89:P0KEMl+23.32:Ml=Ml-22 

180 IFM1>7679THEN185 

181 Mla0 

182 FORI*8062TO7680STEP~22 : POKEI . 32 = NEXT : POKE8084. 93 = POKEe084+CO.. 9 : P0KE36877. 8 : G 
OTO220 

185 IFPEEK<M1)=32THEH205 
198 IFPEEK(Mn=62THEH1000 

1 95 I FPEEK < M 1 ) =46THEHP0KEn 1 ; 42 = FOR I = 1 TO 1 08 : NEXT : B«0 : M I «0 = GOTO 1 8 1 
205 POKEM 1 +C0 ; 2 ; POKEM 1+ 1 +C0 . 2 : POKEM 1 +C0+22 > 2 
210 P0KEML225:P0KEMl+22.126:P0KEMl+23; 126 
220 IFK«41RNIiB-0THENB«P+22 

225 IFB=0THEN300 

226 P0KE36878. 12:P0KE36876.B^25-75 

230 POKEB. 32 ■ E=B+23 : ! FPEEK tB)=32flNDB<8185THEN290 

231 POKE3S876.0 

235 IFB>8185THENB»0--GOTO300 
240 IFB<>MPHI)B<>M1THEN260 

245 POKEB+CO. 4 •• POKEB. 42 : FORI=1TO100 = NEXT : POKEB. 32 
250 I FB«MTHENB=0 : POKEM+ 1 . 32 = POKEM+22 . 32 : M"0 •■ GOTO 1 1 1 
255 B=0 •• POKEM 1 +22 ; 32 : POKEM 1 +23 . 32 = M 1 =0 = GOTO 1 8 1 
250 IFB<8032THEN290 

26 1 P0KE36879 .. 42 = POKEB+CO . 7 = POKEB+CO+ 1.7 = POKEB > 77 = POKEB+ 1 , 78 

262 P0KE36878.. 15 : P0KE36877; 147 = FORI=1TO300 : NEXT 

264 P0KE36879.8 

265 IFB<3059ORB>8060THEN282 

266 POKEB+CO.. 1 : POKEB+CO+1 , 1 : POKEB+CO+22. 1 = POKEB+CO+23. 1 

267 POKEB .. 32 :POKEB+ 1.32 

270 FORI«1TO50 : P0KE36879; 127 P0KE36879v 42 

271 POKEB.. 32 = IFI>a25THENP0KEB+l , 32 = POKEB+22. 32 : POKEB+23. 32 
275 IFK25THENP0KEB.87 

280 IFI>=25THENP0KEB. 85 : POKEB+1 . 73 = POKEB+22; 74 : POKEB+23. 75 

28 1 NEXT r. PR I NT " 11" = P0KE36878 .. 8 = P0KE36877 > : STOP 

282 P0KEB.32:P0KEB+L32 

283 IFBO8052flNCEO8074THEN286 

284 I FM>0THENPOKEM . 32 : POKEM+ L 32 = POKPM+22 .• 32 

285 M=-l:G0T0112 

286 IFBO8051THEN2e9 

287 IFMl>0THENPOKEMl,32:POKEMl+22.32:POKEMl+23.32 

288 Ml=-l:G0T0182 

289 B»0:GOTO300 

290 POKEB+CO. 5: POKEB. 46 

300 IFRND<1)<.9THEN50 

301 F«INT<RNB<n#264+7681) 
305 IFF«MORF«M1THEN50 
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306 : P0KE36878, 9 : P0KE36875. 139 : P0KE3687S. 129 = P0KE36877, 163 

310 POKEF+CO. 4 : POKEr+CO-23. 4 : POKEF+CO-21 , 4 : POKEF+CO+21 , 4 : POKEF+CO+23. 4 

315 P0KE36879. 49 : POKEF. 209 : POKEF-23. 127 : POKEF-21 . 255 = POKEF+21 ; 255 = POKEF+23. 127 

320 I FFaPORF-2 1 =P0RF-23=P0RF+2 1 =P0RF+23=PTHEH 1815 

325 FORIalTO200 = NEXT = P0KE36879.. 8 = POKEF. 32 = POKEF-23. 32 : POKEF-21 .. 32 : POKEF+21 .. 32 
330 POKEF+23. 32 : P0KE36875.. : P0Ke36877.. : P0KE36876. : GOTO50 

1000 P0KE36879, 120 : POKEP+CO. 2 : POKEP+CO+23. 2 = POKEP+CO+2. 2 : POKEP+CO+46. 2 : POKEP+CO+ 
44.2 

1010 POKEP . 1 27 : POKEP+2 , 255 : POKEP+23 .. 209 : POKEP+44 , 255 : POKEP+46 1 27 
1015 P0KE36e75 .. : P0KE36876 .. : PCKE36877 , : P0KE3S878 > 
1020 END 



Tank Battle 

Form a strategy to defeat the computer's tank in this realtime game. Gain points by shooting 
the computer's tanl< and its fuel drums. Move around the screen, chasing the computer and 
avoiding the mines. 

You start off at the bottom right corner, the computer is at the top left. 

W moves your tank up, 

A moves it left, 

D moves it right, 

X moves it down, and 

S fires your gun. 

The winner is the first one to get 1 50 points. 



5 POKE650,255 

10 P0KE36879. 248 > PRINT":]" = CO=30720 = SC»0 = CC='0 

15 FORI«lTO15iM*7680+INT<RND<l>#506) :P0KEM+C0.2:P0KEM,42:NEXT 

20 FORI«lTO10:M=7682+RNlia)*5+<(RND<l)*5+l)*22) 

25 POKEM+CO,5:POKEM,ie0 

30 NEXT 

35 FORI-1TO10 : Ma8185-RND< 1 )^<5-< CRND< 1 )#5+l )*22) 
40 POKEM+CO > 6 ■■ POKEM > 1 60 
45 NEXT 

50 F0RI-7684T07728STEP22 = POKEI+CO.. 2 : POKEI+l+CO. 2 : P0KEI+2+C0. 2 
55 P0KELei:P0KEI+i;8i:P0KEI+2.81:NEXT 

60 F0RI«8135T08181STEP22: POKEI+CO. 3 = POKEI+l+CO, 3 : P0KEI+2+C0. 3 

65 P0KEI.81 :P0KEI+1.81 :P0KEI+2.81 :NEXT 

70 POKE38400.5 : P0KE389e5. S : POKE7680. 1 14 : P0KE8185. 113 

75 C«7680 : P»8185 : DC«22 : DP—22 : EPa0 : EC«0 

80 DIMI}?i<3) :D«<0)=»i :dk(:1)=22:II5{<2)»-1 :D5i<3>a-22 

100 GETfl$: IFfl$s""ORfl$="S"THEN150 
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105 EPsCfl**"?!" )-<fl*«"D" >+< <fl**"W" >-<fl*s"X" ) )#22 

110 IFEP-0THEN150 

HI POKE3687S,5:POKE36877.230 

115 DPs'EP:P0KEP.32:P«P+DP 

117 IFP<7680OEP>8185THENPsP-DP 

120 IFPEEK<P)*42THENP0KEP+C0, 4 : P0KE36877, 140 : FORIslTO200 : NEXT = CC=CC+20 
125 IFPEEK<P)032THENP»P-DP 
130 POKEP+CO. 6 : CH=107 : IFDP«22THENCH«1 14 
135 IFDP«-1THENCH»115 
140 IFDP«»-22THENCH«113 
145 POKEP.CH 

150 POKE3S877,0'.POKE36876.0 

151 EC»DC 

1 52 IFPEEK < C+EC ) =32flNDRND < 1 » . 9THEN 175 
155 1=0 

160 IFC+EC<7680THEN175 
165 IFC+E08185THEN175 
170 IFPEEK<C+EC)'«32THEN200 
175 1*1+1 

180 IFD8THEN195 

181 IFRND<n<.9THEN193 
185 IFC<PTHENEC=D?i<INT<RND<l)#2)) :GOTO160 
190 EC«I)?i<INT<:RND<l)*2+2)) :GOTO160 

193 EC=D?i<IHT<RND<l)*4>) 

194 GOTO160 

195 EC»0:GOTO205 

200 DC=EC: IFPEEK<C+DC*2)*46THENI)C"'-DC:OOTO150 
205 POKEC, 32 : C«C+EC : POKEC+CO. 5 : CH=107 : IFDC«22THENCHsl 14 
210 IFDC«~1THENCH=115 
215 IFBC=-22THENCH=113 
220 POKEC..CH 

225 IFS«0flNDfl*«"S"THENSsP+DP = DSaDP : P0KE36876, 245 : P0KE36877, 150 

230 IFS«0THEN300 

231 J«l 

235 POKES. 32 : S=S+DS : IFPEEK CS)=32THEN260 

236 P0KE36877. 130 
240 IFPEEK<S)O81ORS>7910THEN255 
245 POKES+CO 4 : POKES 42 
250 FORI=1TO200 : NE:=^T : POKES. 32 = SC=SC+10 

255 IF3<THEHSC=SC+20 : POKEC+CO.. 4 : POKEC 42 : PnKE36876.. 130 

256 8«0:GOTO300 

260 S=S-7680 : V=INT<S/22) : XsS-V#22 = S=S+7680 
265 IFX=0ORX=21ORV=0ORV=22THENS=0 : GOTO300 
270 P0KES+C0,6:F0KES.46 
275 J=J+1 : IFJ<3THEH235 

300 IFRND< 1 )>. 9PHDS1«0THENS1=C+DC = CS=DC : P0KE36877. 140 = P0KE36876. 245 

305 IFS1=0THEN400 

306 .T=l 

310 POKES!. . 32 = S1«S1+CS : IFPEEK<Si >=32THEN335 

311 POKE36377..130 

3 J 5 I FPEEK < S 1 ) 08 1 ORS 1 <79 1 0THEN330 
320 POKESl+CO. 4: POKES 1.42 
325 FORI=1TO200 : HEXT = POKESl . 32 : CC-CC+l© 



52 



330 IFSl«PTHENCC«CC-i"20 : POKEP+CO/ 4 : POKEP, 42 : P0KE36876.. 130 

331 Sle0:GOTO400 

335 S 1 *S 1 -7680 ; V= I NT < S 1 ^22 ) : X=S 1 -V*22 = S 1 =S 1 +7680 

340 IFX=0ORXs21ORV=0ORV*22THENSla0 = GOTO400 

345 POKES, 32 : SaS-7$80 : VaINTCS^22) = XaS-V*22 

350 S«S+7680: IFX«0ORX=21ORV=0ORV'=22THENSs0:GOTO400 

355 POKES1+C0.5:POKES1.4S 

360 J«J+1 : IFJOTHEN310 

400 IFSC<:i50flNnCC<150THEH100 

1000 POKE650. : FORI«1TO2000 : NEXT : PRINT"T 

1005 PRINT"SC0RE: " :PRINT"VOLi"SC 

1010 PRINT"COMPUTER"CC 

1015 P0KE36876, : P0KE36877. : P0KE36878. 



Danger Star 

Accelerate your fighter up the trench of the Danger Star, avoiding the enenny laser fire. Then, 
as your target comes into view, fire your torpedo at the exhaust port and hope for a direct hit. 
Z moves your fighter right, 
C moves it right, and 
M fires a torpedo. 

Any numerical key will alter your speed up the trench. 
Remember, don't fire too early. 



1 P0KE36e79, 24 : POKE650. 129 : SC=4+INT<RND< D#l I ) = SP=1 -dl-Q- TP-0 • TL»5 : COa30720 

2 mHV'iammmmmmimmm'' :pRiNTTflB<sc)"iiar^" 

3 PRINfiMa 

4 PRINT"«fllllDIST. covered:" 

5 PRiNT"na 

6 PRINT".TliairORPEDOES LEFT-" 

10 PRiNT'Tn^a . . y i« . . .p' la . ■ 

r 

15 PRINT" '^a . . W la . W" 

20 PRINT" la . . w . W" 

25 PRINT" la W la W" 

30 PRINT" 'la W 

35 PRINT" /S / V 

40 PRINT" / \ / V.I 

43 PRINT" / \ / . .. 

50 PRINT" / \ / V' 

60 FORI-7680TO8164STEP22 : POKEI+CO, 2 : POKEI » 166 : NEXT : FORI«7701TO8185STEP22 ; POKEI+C 
70 POKE!/ 160: NEXT 

60 F0RI«8165T08184 : POKEI+CO. 2 : POKEI , 160 : NEXT 
100 QETfl* : IFfl*""" "THEN120 
110 IFH««"Z"QRfl«»"C"THEN500 

115 IFfl»""M"flNDTP«0flNDTLO0THENTP«»8098+SC : TL*TL-1 = T< 1 )s32 : T<2)«32 ■ T<3)«32 = G0T012 
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118 SP»VflL<fl$) 
120 OI-DI+1 

130 IFRNDaX. 114nNDDK460THENGOSUB1000 
135 IFRNIX1X.11THENGOSUB2500 
140 IFDI»460THENOO8UB1500 
150 IFDI«560THEN2000 

1 60 PR I NT " imiiiniMiiiiiM" ; dx 

161 PRiNT"rmiPiiiMi»iiiiinr ; tl 

162 IFTP<>0THENOOSUB3e08 
165 IF8P>7THEN180 

170 FORI"1TO1400-SP#200:NEXT 
180 OOTO100 

500 PRINT"MI(ininO^^ " 
505 SC«SC+Cfl*«"Z")-<fl»B"C"> 
510 IFS016THENSC-16 
520 IFSC<4THENSC>4 

525 PRINT''innHOa^^ :PRINTTAB<8C)"fian" 
530 GOTOi20 

1000 P0KE36879/ 120:V«INT<RND<1)*6) :X»2+INT<RNDa)#16> :FL«7988+<V«22+X) 

1010 F<l)«PEEK<FL-23) 

1020 F<2)«PEEK<FL-21> 

1030 F<3)«PEEK<FL) 

1040 F<4)«PEEK<FL+21) 

1050 F(5)>PEEK(FL+23) 

1060 P0KEFL-23+C0/ 2 ■ POKEFL-23* 127 : P0KEFL-21+C0/ 2 : POKEFL-21 , 255 : POKEFL+CO, 4 : POKEF 
U81 

1070 P0KEFL+21+C0; 2 : POKEFL+21 . 255 ■ P0KEFL+23+C0/ 2 : POKEFL+23, 127 
1075 F0RI«1T0111:NEXT 

1080 P0KEFL-23+C0* : POKEFL-23^ F< 1 ) : P0KEFL-21+C0; = POKEFL-21 , F<2> : POKEFL+CO, ' POK 
EFL,F<3) 

1090 P0KEFL+21+C0> : P0KEFL+2L F<4> : P0KEFL+23+C0* : POKEFL+23; F<5) 

1091 IFFC3)«TPORF<3)«TP+22ORF<3)aTP+23THEN1200 
1100 P0KE36d79^24 

1110 RETURN 

1200 P0KETP.T<1) •■P0KETP+22.T<:2) :P0KETP+23.T<3) :GOTO3200 
1500 P0KE7954+C0. 2 = P0KE7954. 213 : P0KE7955+C0. 2 : P0KE7955. 281 
1510 P0KE7976+C0. 2 ; P0KE797S, 282 : P0KE7977+C0. 2 ! P0KE7977, 203 
1520 RETURN 

2000 P0KE36879/ 120 : FORI«1TO250 : NEXT : P0KE36879> 40 
2005 F0RI«IT0250:NEXT 

2010 P0KE36879. 120 = FORI-1TO250 : NEXT '• P0KE36879^ 48 
2015 FORI«1TO250:NEXT 

2020 P0KE36879 , 1 20 : FOR I * 1 TO250 = NEXT : P0KE36879 , 48 
2825 FORI*1TO250;NEXT 

2838 P0KE36879.8:PRINT"n*'0U FAILED 1 1 ! ! 1 1 « — <" 
2850 REM«iliKRBOOM«iiE 
2100 END 

2500 F0RI-7998T081528TEP22 

2501 IFI«TP0RI«»TP+23THENH«1 
2510 POKEI+CO.2'POKEL103:NEXT 
2515 FORI«1TO100:NEXT 

2520 F0RI-7998T08152STEP22 
2538 POKE L 32: NEXT 
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2535 IFH«=nHEN1200 

2540 IFSC«9ORSC«10THEN2000 

2550 RETURN 

3000 POKETP. T< 1 > ! POKETP+22. TC2) 

3001 P0KETP+23.TO) 
3010 TP«TP-22 

3020 IFTP<7724THEN3200 

3030 IF<TPa7998ORTPa7999)flNDSP>5flNDDI>525THEN4000 

3031 IFPEEK<TP>160ORPEEK<TP)*46THENZ<n»128 

3032 IFPEEK<TP+22>«160ORPEEK<TP+22)«46THENZ<2)«128 

3034 IFPEEK<TP+23)«160ORPEEK<TP+23)«46THENZC3)«128 

3035 t<;d*peek<tp) 

3036 T<2>«PEEK<TP+22) 

3040 POKETP+CO.^0 = P^E^^ 103+2< I > = P0KETP+22+C0, = POKETP+22, 106+Z<2) ■■ P0KETP+23+C0. 


3045 POKETP+23,101+Z<3) 
3050 RETURN 

3200 TP«0:FORI=lTO3:Za)='0:NEXT:H«0 

3201 RETURN 
4000 F0RI«1T05 

4005 P0KE7954+C0. 7 : P0KE7954. 213 = P0KE7955+C0; 2 : P0KE7955, 201 
4010 P0KE7976+C0. 7 : P0KE7976. 202 = P0KE7977+C0/ 7 : P0KE7977; 203 
4020 FORJ=1TO250!NEXTJ 

4030 P0KE7954+C0. 2 = P0KE7954. 213 = P0KE7955+C0. 2 : P0KE7955. 201 
4040 P0KE7976+C0. 2 = P0KE797S, 202 : P0KE7977+C0. 2 : P0KE7977. 203 
4050 NEXT 
4060 FORIS1TO10 

4100 P0KE36879. 120 = FORJslTO250 : NEXT : P0KE36879. 40 
4110 FORI 1S1TO180: NEXT 
4120 NEXT 

4200 P0i<E36879,8:PRINT":3»IELL DONE LUKE" 
4210 PRINT-IWOU DESTROVED THE SIDEflTH STAR*' 
4220 PRINT"flND SAVED EVERYONE." 
4300 REt1»«END«i(i 
4310 END 
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Reversi 



Reversi (often called Othello™) was invented in 1888. Reversi was played on a standard 
checkers board, using double-sided pieces— red on one side, black on the other. In his splendid 
book "Discovering Old Board Games" (Shire Publications Ltd., Aylesbury, 1980), R.C. Bell ex- 
plains that black begins the game by placing a piece, black side up on one of the four central 
squares on the empty board. Red replies by placing her first piece, red side up on another central 
square. "These four squares are covered in the first four turns of play, and then the players con- 
tinue alternately, placing their pieces on a square adjacent to the one occupied by an enemy 
piece," Mr. Bell writes. 

Any enemy pieces in a straight line between the latest piece placed and another one of the 
player's pieces, is then turned over to show the player's colour. The winner is the player with 
the most pieces when the board is completely covered, or when neither player can move. 

You'll find the VIC plays slowly, but remarkably well, in this version of the game. You get the 
choice of going first or second. You move by entering the number of the square down the side, 
then the number across, entering both as one double-digit number (such as 36). 

Structure of the program: 

Line 6: Sets a black border. 

Lines 1 to 110: Sets all elements (except those around the 'frame') of the board to the code 
of a full stop (42). Lines 70 to 1 00 set the first four pieces in place (noting that X has been 
set equal to the character code of X and to the code of 0). 

Lines 1 20 to 1 70: Give the player the option of first move. 

Routine from line 1 000: This is the heart of the game, the VIC's Reversi-playing intelligence. 
Lines 1 340: If both H and R equal zero, then neither the computer nor the human player can 

move, so the game is over. In this case, control is sent to the routine from line 5000 which 

determines who has won. 
Routine from 2000: This accepts the player's move, and acts on this. The player enters a zero 

if she is unable to move (line 2040). 
Routine from 3000: Prints and reprints the board. Note the use of the 'home' key here to make 

the pieces change before your eyes. 
Routine from 4000: This flips the pieces. 
Routine from 5000: End of game. 




'Vol.* 
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Suggestions for improvement: 

• Change the representation of the pieces to use, say, red and blue circles. 

• Change the computer's strategy by experiment with the value 1 220 to 1 270. Changing all 
the two's to three's improves the VIC's play slightly, but slows its response time down. 

• Add some sound for each piece as it is flipped. 

1 REM REVERSI CHRRLTOH/HRRTHELL 

2 REM NOTE LETTER 0.. HOT ZERO 

3 REM CLS IS CLEAR SCREEN 

4 PRINT"T:REM CLS 

5 K^flSCC'H") :0=fiSC<"0"> 

6 POKE 36879. 24: REM ELflCK BORDER 
10 EIMfl<10,10) 

20 FORB=1TO10 
30 FORC-^ITOIO 

40 IF EOl RND COl AND EC 10 AND CO IS THEN A<B ..C>- RSC 
50 NEKTC 
SB NEMTB 
70 fl(5.5)=-X 

100 fl<5.6>^0 

110 P=^0 

120 PRINT":JSD0 VOU want to GO": rem CLS. RED 
130 PRINT"FIRST <1-VES. 2-NO.V' 
140 INPUT W 

150 PR INT" :iS": REM CLS.. BLUE 

160 G03UB 3000 

170 IF W«l THEN 2000 

1000 PRINT" MV MOVE 

1010 S-0 

1020 T-'M 

1830 H=0 

1040 F0RA=2 TO 9 

1050 F0RB=2 TO 9 

1060 IF R<A,B>046 THEN 1320 

1070 0-0 

1080 FORC'-l TO 1 
1090 FORD— 1 TO 1 
1100 K^0 
1110 F-R 
1120 G«B 

1130 IFfl<F+C.C+D)OS THEN 1180 

1140 k=k:+i 

1150 F=F+C 
1160 G=C+D 
1170 GOTO1130 

1180 IFfl<F+C.G+D)OT THEN 1200 
1190 Q^Q+K 
1200 NEXTD 
1210 NEXTC 

1220 IFR'2 OR 0=9 THEN Q=Q*2 
1230 IFB'=2 OR B=9 THEN Q=Q*2 
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1240 IFfl-3 OR fl^8 THEN Q=Q/2 
1250 IFB-3 OR B=8 THEN Q=Q/2 

1260 IF(fl=2 OR fl=9) AND <B^3 OR B==S) THEN Q=Q/2 

1270 IF(fl^3 0Rfl=8)flND<Z=2 OR Z=9) THEN 0^^9/2 

1280 IF Q<H OR Q-0 OR (RND(1»0.3 AND Q-H) THEN 1328 

1290 H=Q 

1300 M=fl 

1310 N=B 

1320 NEMTB 

1330 NEXTfl 

1340 IFH-0 AND R=0 THEN 5900 

1350 IFH^e THEN 1378 

1360 GOSUB 4000 

1370 GOSUE 3000 

2000 INPUT"VOUR GO"JR 

2010 s~y, 

2020 T-O-REM LETTER 

2035 REM TO PASS 

2040 IF R==0 THEN 2890 

2050 IF R-ai OR R>88 THEN 2000 

2060 M^INTc:R/10::' + 1 

2070 N=R- 1 0* I NT < R/ 1 8 > + 1 

2080 GOSUE 4008 

2090 GOSUB 3008 

2100 GOTO 1000 

3000 PRINT "a-'^REM HOME 

3010 C=0 

3020 H=0 

3030 print: PRINT"! aREVERSIl" = PRINT 
3032 REM BLACK. RVSOH.RVSOFF 

3035 PR I NT " ai 2345678E" : REM RED .. R VSON .. RVSOFF .■ BLUE 

3040 F0PB=2 TO 9 

3050 PRIHTE-i; 

3060 F0RD=2T09 

3070 PRINT CHR$';A<E..D>>; 

3090 IF A(B.D>^K THEN C-=C+1 

3090 IF A<B,D>=0 THEN H=H+1 

3100 NEKTD 

3110 PRINTB-1 

3120 NEKTB 

3130 PRINT"!a ai 234567881": REM RED. RVSON, RVSOFF, GREEN 
3140 PRINT 

3150 PRINT" I HAVESIMC 
3152 PRINT 

3155 PRINT'' iWU )HAVEfS";H;" iS" 

3157 PRINT 

3170 RETURN 

4000 F0RC=-1 TO 1 

4010 F0RD=-1 TO 1 

4020 F=M 

4030 G^'N 

4040 IFA<F+C.G+D>OS THEN 4080 
4050 F«F+C 
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4060 G=G+D 
4070 GOTO4040 

4080 IFfl<F+C.G+D)OT THEN 4148 
4090 fl<F.G)=T 

4100 IF M=F AND N=G THEN 4140 

4110 F=F--C 

4120 G=G-D 

4130 GOTO4090 

4140 NEXTD 

4150 NEXTC 

4160 RETURN 

5000 IFOH THEN PRINT"! WON";C,;H 
5010 IFH<C THEN PRINT"VOU WON";C;H 
5020 IFH=C THEN PRINT" IT'S fl DRAW!" 
5030 END 

Fruit Machine 

This splendid program, wiiicii uses the VIC's graphics most effectively, was written for the 
book by M Kendall. There are three reels, and each reel has four symbols. You can stop all the 
reels, then either HOLD or NUDGE each one. 

Due to effective government cost-cutting, you start with 5p, and each game costs you just 
2p. 

The winning combinations: 

Same, same, same -5p 
Same, same, any -3p 
Any, same, same -1p 

Your controls: 

Any key to stop the reels 

N to NUDGE 

H to HOLD 

Any to play again 

P0KE36S79.27;PRINT"3i!B BV M. KENDALL 1982" 

1 PRINT-SMWa iSffiO VOU WANT":PRINT"r^ KBIHSTRUCTIONS?" :PRINT"W»Mn (VCR 
N)" 

2 CETQ*:IFQ*=""THEN2 

3 IFQ$="V"THEK GOSUBiaeS 

4 L=5 

5 FRINT".T 

6 L=L-2 

7 W=0 

8 POKE 36878.10 

9 POKE 36879.72 

10 RJ<1>="3!1 4.^v--jaiM!a ^■■IIB.3l*'--a,)!||||||iv 

20 A$<2)«" kiniiia &)iiiiai gaiifisi \ smimsm «" 
40 A$(4>=" mtM ajtuiiisp 'xmm'^" 
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45 F0RN=1T03 

50 flsINT<RND<l)#4)+l 

51 fl<N)«fl 

54 G«<N-1)*7+1 

55 PRINTTRBCG)" ll§iBi§&)!p ^IBIIIII iiSUBBSIBi KEBBBBBBi 

II 

56 PRINT"SS" 

S8 PRiNTTflB<G);fl$(fl> 

61 POKE 36875. 200 :FOR2=1TO10: NEXT :POKE36875.0 
66 PRINT"a" 
70 NEXTN 

80 GETQ*:lFQ$0""THEHi33 

100 G0T045 

193 F0RH=1T03 

200 3ETQ$ ■■ IFQ$=" "THEN200 

210 IFQ*="H"THEH250 

220 I FQ* = " N " THENGOSUB300 : GCTO240 

230 GOTO200 

240 PR I HTTRB < < N- D *7+ D " msmmUTiQE.UnVllY' 
245 GOTQ260 

250 PRIHTTflB<<N-l)«7+l)'')WMl<0OW HOLKIIIIIIir 
260 NEXTN 
270 GOTO500 
233 END 

300 fi=INT<RNIi<l)*4)+l 
381 R(N)=fi 

305 PRINTTBB<(H-1>$7+1)" j^iESii ]»BBBBBI )qiBBBBBI MBBBBBBI 

II 

316 PRINT'^Sasi" .: TflB< <N-1 )*7+l )fl*<fl) 
320 PRINT"a" 
330 RETURN 

500 PRiHi"mmmmmfSi^imii-m'' :■ 

510 I F'n ( i > =R ( i ) RKBR < 2 ) =fi ( 3 ) THENW=5 •■ GGT0553 
520 IFnc:i)=R<2>THEHi.'4=3 
533 IFi=.(2>=n<3>THENU=i 
550 PRIHTy;'iP niNUS 2P " 
568 FRIHT"W FOR THI& GRME" 

563 IFL'j=5THENFSINT"» gkJRCKPOTffTT' •• GOSUB3000 

565 PRINT"j<WW" 

570 L=L+W:PRINT"» nWONEV LEFT_^% L 
575 IF L>23 THEN8300 

533 IFL<3THENPRIHT"Tn VOU RRE BROKE i GOTQ700 
600 GETQ*: IFQ$0""THEN5 
516 0010603 

700 PRINT'-jaSTHRTS THE END FOR VOU" 

70 1 F0R2= 1 28T0255 : P0KE36877 . Z = FORT= 1 TO 1 = NEXTT , 2 

702 POKE36877,0 

710 GETQ*:IFQ$=""THEN710 
730 RUN 
1000 PR I NT 

1010 PRINTS VIC FRUIT ilRQHIHE 
1023 PR I NT 

1030 PR I NT "k THERE RRE 3 REELSM 
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1040 

1050 
1060 

1070 

1080 

1050 

lies 

1110 

1120 

2000 

2019 
2020 
2030 
2040 



PRIHT"flND EACH REEL HfiS FOUR 

PRINT"3VMB0L3.S 

PRIHT"^ VOU CRN STOP fiLL THE 

PRINT"REELS THEN EITHER HOLD 

PRINT"OR NUDGE EACH CNE.^ 

m 



FH 5P 
2P. 

CONTINUE. ' 



PRINT" ra VOU STRRT 
PRINT'^EFICH GfiME COSTS 
PRINT"i3!KFRE33 BAR TO 
GETfi$:iFfl*=""THEN1120 
PRINT"T 

PRINT"ra THE WINNING PfiTTERNSW 
PRINT" flRE:W 

PRINT"k SAME SAME SAME«5P» 
SAME SAME ANV =3PW 



2050 
2860 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
7999 
8000 



ANV 
THE 



SAME SflME=lP:S 



CONTROL KEVS ARE: 
ANV=STOF REELSIS 
H=NUDGE» 
H=HOLD» 
ANV=SPIN AGAINM 
PRESS BAR TO PLAV" 
THEN2120 



CONGRATULATI0NS":PRINT'WtGU'VE BROKEN THE BANK" : PR I NT "MS TPI 



PRINT" 

PR I NT 
PRiNT''!a 
PRINT"k 
PRINT" 
PRINT" 
PRINT" 
PRINT"S 
GETA*:IFA*- 
RETURN 
END 

PRINT^mSKB 
OUT OF MONEY 
8001 P0KE36878,15 
P0KE36879.24 
PRINT")I1«S0RRV. 
F0RN=1T012 
READA--P0KE36875.A 
FCRZ*lTOi50-NEXTZ 
NEXTN 

DflTfil35.. 147. 135. 175. 175. 163. 183. 183. 191. 135. 195. 135.27 
RESTORE 
F0RN=lT0i3 
READA:P0KE36876.A 
FORZ=1TO150:NEXTZ 
NEXTN 
PRINT"a" 
POKE36875.0 
END 




8002 
8005 
8010 

8015 
8820 
8030 
8040 
8100 
8110 
8115 
8120 
8130 
8135 
8140 
8150 



THATS THE END" 
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3000 PCKE36S?S.ie 
3031 FORZ=iTOi0 
3082 PCKE36873..74 
3010 FOR:M=200TG2£e^Z*2 
3020 P0KE3S376.M 
3S30 HEKTN.,Z 

3035 POKE36876,0 

3036 P0KE36S73.72 
3040 RETURN 

3500 REM 

9510 REM 

3520 REM M.KENLRLL 
9530 REM 

3540 REM (c^ 1982 
9550 REM 

9560 REM 



Dr Watson and Dr Audio 

This is a pair of simple programs, in which the VIC thinks of a number between one and a hun- 
dred, and challenges you to guess it. In 'Dr Watson', the feedback is words, and it is pretty easy 
to guess the number. 'Dr Audio', by contrast, uses a tone to let you know how close you are to 
the correct number. Once you've played about five games, you'll probably be quite pleased to 
see how good you become at interpreting the sounds. 



Dr Watson 

5 REM DR UftlSOH 

6 C=1:PRINT"T 

10 PRINT" I AM THINKING OF fl NUMBER BETWEEN ONE AND 100" 

30 fl^INT<RND<l.^#100)+l 
40 PRINT"WHfiT IS IT"; 
45 INPUT B 
50 C=C+1 

55 REM "WRONG" IN RED 

60 IFBOfl THEN PRINT"NO.ra" JE; "SlSnSj i-jRONGS" 

65 IFB^fl THEN 120 

67 PRINT"GUESS"JC;"IS "; 

70 IFB<fl THEN PRINT"ifTOO LOi^S":REM GREEN ..BLUE 

80 IFB>fi THEN PR I NT "^00 HIGHS": REM PURPLE ..BLUE 

90 IF C<10 THEN 45 

100 PRINT: PRINT"! SEND OF THE GAMES" 

110 PRINT"fSI WAS THINKING OF";A:GOTO170 

120 PRINT"VES> VOU ARE RIGHT!" 

130 PRINT 

140 PRINT"SI mm STHIHKING" ,"OF";fl 
150 PRINT 

160 PRINT^'IT TOOK VOU"; C/' GUESSES'' 
170 FORJ'^1TO2000: NEKTJ 
180 RUN 
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Dr Audio 



NUMBER BETWEEN ONE 



5 REM DR fiiJDIO 

6 |>1 

? P0KE3e878.7 

10 PRINT"! RM THINKING OF fl 
30 fi-IHT(RNDa:J + 190) + l 
40 PPINT''WHfiT IS IT''.; 
45 INPUT E 
"30 C-C+1 

55 REM "WRONG" IN RED 

60 IFEOfl THEN PRINT'^NO.. rS'S B.. ^'Sisrs WRONGS 
65 IFE-=fl THEN 120 
67 PRIHT"GUESS'\;C.: "IS 
70 POKE 36875.. flBS<fl-B>+12S 
30 FORT-1TG700:HEMTT 
85 

90 IF C<30 THEN 45 
100 PRINT: PRINT"! SEND OF THE GRMES" 
110 F'PINT"r^I WfiS THINKING OF ".;f|: GOTO 170 
120 PRINT"VES. VOU ARE RIGHT!" 
130 PRINT 

140 PR I NT "31 r*jflS STH INKING" /'OF";fl 
150 PRINT 

160 PRINT" IT TOOK VOU" ;C /'GUESSES" 
170 FOR.J^1TO2000: NEKT..T 
180 RUN 



AND 100' 
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Tight Squeeze 

This program is fun to play, especially for younger chirdren. The VIC selects two numbers be- 
tween one and 1 3, tells you how much money you have, and asks you to bet on the likelihood of 
the third number lying between the two numbers generated. If you are correct, and the third 
number does lie between the first two, you win double the amount you 'invested'. If you are 
wrong, you lose the amount. So long as you have money, you'll be offered new rounds of the 
game. You start with $ 20, and you can bet any or all of the money you have in hand. 

Structure of the program: 

Line 20: Sets your starting stake to $ 20. 
Lines 30 to 40: Generate the first two numbers. 

Line 50: Checks to see that the two numbers are further apart than one. If they are not, the 
VIC is sent back to lines 30 to 40 to try again. 

Line 60: Generates the third number, which is not shown to the player at this stage. 

Line 70: Checks that the third number is not equal to either of the first two. If it is, the com- 
puter returns to line 60 to get another one. 

Lines 80 to 1 37: Print out the money the player has, the two numbers the VIC has chosen and 
asks the player to enter her bet. 

Lines 1 50 to 1 70: Accept the bet (1 50), return for a new bet if the player tries to bet more 
than she has (1 60) and responds (very colourfully) with COWARD!! if the bet is less than 
one dollar. 

Line 1 80: A delay loop before the VIC reveals its third number. 

Lines 1 90 to 260: Reveals the third number (1 90), jumps to the end if bet was less than one 
(200), 

jumps to the lose routine if third number outside the first two (210), congratulates player and 
increments money (220 to 240), consoles player and takes money away (lines 250 and 
260). 

Line 270: Checks to see if money is above $ 1 after the last round, and if it is not, sends the 

VIC to the bankruptcy routine starting at 31 0. 
Line 280: Delay loop to allow player to absorb the result of the round. 

Lines 290 to 300: This is an attractive visual routine which you may want to use in other pro- 
grams. Line 290 PRINTS a line, and lines 292 and 298 select a spot on the screen and a 
colour at random and POKEs into the display file at this location with this colour. There is a 
very short pause (line 299), and loop is run again. The PRINT in line 290 means the screen 
scrolls up as the coloured blips appear. 

Lines 305: Starts another round of the game. 

Lines 310: to 330: This is the end of game routine which prints THE GAME IS OVER!! then an 
endless series of YOU ARE BROKE messages. 

Suggestions for improvement: 

• Use as GETA$ routine in place of line 1 50, with a counter to force the player to decide quick- 
ly, with a momentary penalty if the decision is not made in time. 

• Add a fanfare for a win, and a raspberry noise for a loss, with a super raspberry for bank- 
ruptcy. 



64 



• Add some 'chirping birds' (see tlie VIC manual) during the colourful interlude between rounds 
of the game. 

• Make the amount of the win and loss change randomly from round to round, telling the player 
before she makes her bet how much a win and a loss is worth. 



10 REM TIGHT SQUEEZE 

20 D^20 

23 PF:IHT"T:REM CLEAR 3CREEH 

30 fl-^IHT<RND<l>*13) + i 

46 B-^IHT<RND<:.)*i3>+l 

50 IF flBS<B-n><2 THEN 39 

iSO C-INT(RND<i>*13>+i 

70 IFfi-C OR P=-C THEN 60 

80 PRINT"»1V FIRST NUMBER IS".;fl 

90 PRIHT"n« MV SECOND IS MB 

100 PRINT 

120 PRINT'-IWOU HRVE SB*" .: D; 
125 PRINT 

130 PRINT"HOl^ MUCH DO VOU BET" 
135 PRIHT"MV NEKT NUMBER LIES" 
1 3? FR I NT •• BETWEEN " J fi .:. " AND " ; E ; 
150 INPUT E 
160 IFE>D THEN 150 

178 IFE<1 THEN PRINT"!CW0»iinER!7IDrS! ! " 

180 F0RZ=^1T0999:NEMTZ 

130 PRINT"aiV NUMBER IS";C 

200 IF E<1 THEN 2S0 

210 IF NOT <C>fl AND C-CE OR C<fl AND C>B> THEN 250 

220 PRINT"i^ELL DONE" 

225 PRINT"^V0U WIN 4:"J2#E 

230 D^D+2*E 

240 GOTO 280 

250 PRINT"iaeORRV; VOU LOSE $";E;"S" 
260 D-D-E 

270 IF D<1 THEN 310 
280 FORZ=1TO2000:NEKTZ 
290 F0RZ'=1T024: PRINT 
292 L-INT<RND<:i)#500)+l 
294 C''INT<RND<1)*8)+1 
296 POKE 7680 + L. 160 

298 POKE 38400+L.C 

299 FOR;-;^1TO50:NEXTX 

300 NE.MTZ 
305 G0T025 

310 PRINT"THE GAME IS SIOVER! !1" 
320 PRINT"?fr'OU ARE BROKE 
325 F0RZ=1T0999:NEXTZ 
330 GOTO320 
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Time Guardian 

In this challenging game written by Adam Burbidge of Crawley you have to recover the six 
parts of the key of time. The ship starts with 700 energy points, and you lose five points for 
each move. 

When you first run it, you'll see the message I AM CREATING A GALAXY while the VIC sets 
up the universe for your game. After a brief delay, the screen will clear, and it is Decision Time. 
Every so often the VIC will ask you to set co-ordinates, and then it will print: 

QUADRANT? You enter a number from to 6 
SECTOR? You enter another number from to 6 

This is repeated. Then it will print: 

TIME? You enter either© or 1 

If you land on a hostile planet, the VIC will print SHIP UNDER ATTACK, then SHIP ENER- 
GY .. . and a number. You need to press any key (which you may have to do several times 
rapidly) to escape from the hostile planet. 

From time to time you'll find part of the 'key of Chronos', the point of the whole game. You 
must find all six parts of it to win, and you must find them before your ship's energy is ex- 
hausted. 

3 REM TIME GUARD I PIN 

4 REM BV flDflM BURBIDGE 

5 DIMKJi<4).Z$<l).fl?':<6.6,6.1) 

6 K:iC3)=700:F=75 
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10 PRINT"T:REM CLEAR SCREEN 

20 PRINT" SWI m CREATING A GALAKV 

30 B=INT<RND(n*6) 

40 C=INTi;RND(1)*6) 

50 D=INT<RHD(1>*6) 

60 E=INT<RND<1>*2> 

70 fl:'-XB,C,D.E)=2 

75 F=F-1 : IFF<0 THEN 85 

80 GOTO30 

85 PR I NT "T: REM CLEAR SCREEN 
90 GN=INT<RND<1>*2)+1 
100 PRINT" SBfr'OU START AT GLODNOB" 
105 PRINT 

110 PRINT"«!UADRANT 5" 
115 PRINT 
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120 PRINT"iSECTOR 3.4" 
125 PRINT 

130 PRINT"man-IME"GN*1000"EflRTH VEflRS" 
135 PRINT 

149 PRINT"aSET CO-ORDINATES" 

150 INPUT"QUflDRfiNT";G 
160 INPUT"SECTOR"iH 
165 PRIHT'V" 

170 INPUT"SECTOR";l 
180 INPUT"TIME";J 
1 85 KJi C 3 ) -K'/l ( 3 ) -5 

190 IFflX<G,H.I.J)=l THEN PRINT"aEfr'OU ARE ON GLODNOB" :GOTO90 

200 IFflJi<G..H.LJ)>l THEN 300 

210 PRINT"IJ)EEP SPACE" :GOTO140 

300 PRINT"iVOU ARE ON A PLANET" 

310 PRINT" SEWUADRAWT"G 

320 PRINT"iSEGTOR"H.. I 

330 PRINT"SriME"J*INT<RND<l)#7) 

340 KJi<l)=INT <RND<1)#20)+1 

350 IFK?i<l)>5 THEN 370 

360 PRINT"fUNiIN*AaBinirED" :GOTO140 

370 IFK?i<l)>10 THEN 400 

380 PRINT"flaiHHABITANTS HOSTILE" :GOTO500 

400 PRINT" aff*ART OF THE KEV OF". "IS CHRONOS " 

410 KX<2)=K?i<2)+l 

420 PRINT"VOU NOW HAVE"KJi<2> "PARTS". "OF THE SWKEV" 

430 IFKJi<2)=6 THEN PRINT"!lfi'OU HAVE WON!":END 

440 GOTO 140 

500 GET Z*<1) 

510 IF Z$<1)=""THEN540 

520 GOTO140 

540 PRINT"iaSHIP UNDER fIRTTACK!" 
550 K?i<3)»K?i<3>-INT<RND<l)#50)+l 
560 PRINT"»HIP ENERGV:"K?i3 

565 IFKJiOXl THEN PRINT"8liSHIP fDESTROVED" :END 
570 FORT*1TO200:NEXT 
580 OOTO500 



Long John Silver 

This is a very simple program which you can use as the core of any program when you want to 
hide something on a grid. In this case the grid is 1 x 10, and after each guess you are given 
feedback as to where the gold is hidden. 



Structure of the program: 

Lines 1 and 20: 'Hide' the gold. 
Line 30: Loop to count guesses 

Line 60: Accepts player guess, strips it to two numbers to 'process' it. 
Lines 1 30 to 1 90: Feedback on the accuracy of the guess. 
Lines 2 1 to 220: End of game if not guessed. 
Lines 230 to 260: End if the treasure is found. 
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Suggestions for improvement: 

• Change the size and shape (triangular?) of the grid. 

• Add some ambiguity to the f eedbacl<. 

• Use sound for the feedback (high notes for close, low notes for far away). 

• Add a sound routine to the win routine. 



? POKE 36879, 15 
S PRINT"T 

10 fl=:INT<RND<l)#10> + l 

29 B=INT(RND<D*10)+l 

30 FORZ=-1TO10 

35 PRINT"ii": PRINT 

40 PRINT"VOU HAVE ONLV" 

45 PRINT10-Z; "^SECONDS LEFT!" 

50 PRIHT'-a-iHERE IS THE GOLD"; 

60 IHRUTM : i>INT<M/10> •■ D=M-C*10 

70 IFfl^C AND E=D THEN 230 

130 print: PRINT" IT IS NOT flT";C;D 

135 PRINT 

140 PRINT"HERE IS fl CLUE:-" 
150 PRINT"kTRV to THE 
160 IF fl>C THEN PRINT"«SOUTHni"; 
170 IF fl<C THEN PRINT" WORTHHl".: 
180 IF B<D THEN PRIHT"iWESTn" 
190 IF B>D THEN PRINT" «fl3T!il" 
200 HEKTZ 

210 PRINT :PRINT"!»TIME IS UP" 
215..PRINT"l!rrHE GOLD WAS flT";fl;B 
220 END 

230 PRINT"WI!EBLa. iSDIBOiWiE ! " 
240 RHD<1)#10000 
245 PRINT"fil" 

250 PRINT"VOU FOUND £";INT<S/Z); 
255 F0RT»1T0555:NEKTT 
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Robot Nim 

The VIC prints a number of odd triangle shapes, tells you how many you can take, then takes 
a few of the shapes itself. This fascinating process continues until there is only one left. At this 
point the player who must take the last one loses. 

Structure of the program: 

Line 20: Determines the number of objects. 

Line 50: Determines the maximum number to be taken. 

Lines 1 00 to 1 30: Print out the correct number of triangles, starting new lines at random (see 
line 120). 

Lines 21 to 21 5: Determine how many the 'robot' will take. The random bit at the end of line 
210 ensures that the robot makes mistakes from time to time. Line 215 ensures that the 
mistake is not so large that the robot breaks the rules. 

Lines 280 to 290: Place a coloured border between rounds of the game. Design this to suit 
yourself. 

10 REM ROBOT NIM 

20 M»0:E=0:Z=16+INT<RND<1)#8> 

30 PRINT"T:REM CLEAR SCREEN 

40 IF2*INT<Z/2>=Z THENZ=Z+1 

50 H=3+INT<RND<1)*2) 

60 PRINT"WiaXinUM TO TflKE"H 

70 GOSUB280 

80 IF E>0 THEN PRINT'-JWOU TOOK"E. "IROEOT TOOK"Q 
90 PRINT"K" 

100 PRINT"!" :F0RK=1T0Z 

110 PRINTK;"r"; 

120 IF RND<1)>0.6 THEN PRINT 

130 NEXTK 

140 GOSiJB280 

145 PRINT"iHOW MflNV WILL"."VOU TRKE"; 

150 INPUTE 

160 IF E>H THEN 150 

170 Z=Z-E 

180 GOSUB280 

190 IF Z<1 THEN PRINT"^OU TOOK THE LAST ONE"/'n«a SO ROBOT WINS!! ":END 
210 Q=Z-l-INT((Z-l)/<H+l)>#<H+n-INT<RND<l)*2)+INT<RND<l)*25 
215 IF Q<1 OR Q>H THEN 210 
220 GOSIJE280 
230 Z=Z-Q 

240 IFZ=0 THEN PRINT"y?OBOT TOOKr!S"Q. . /'ISO VOU n<aWINI i " ^END 
270 GOTOS0 
280 PRINT 

285 PRINT"i«t#k###!!«#i»##n»»#il»##!*t#S»##!»#" 
290 RETURN 
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Night on a Wild Mountain 

This program is perhaps best saved for those people who say: "It's very nice having a per- 
sonal computer, but what can you do with it?" Once having seen (and heard) this program, they 
may well be convinced that perhaps they should not have asked. The music is wild and random, 
as befits the title, although the graphics have symmetry and order. Enter this program just as it 
is listed here, then try and work on it to bring some order into the music. 



5 PRINT"T 

10 REM NIGHT ON fi WILD MOUNTAIN 

12 REM <RflNDOM MUSIC. PATTERNS) 

15 M=INT<RNDa)#8> 

20 A=INT';RND<n*18) 

30 B=INT<RND<1>#18) 

40 C=791l 

50 D=38631 

60 POKEC+A, 102 : POKED+A, M 

70 POKEC-A> 102 : POKED-A, M 

80 POKEC+ 1 1 *A+B . 1 02 •■ POKED+ 1 1 #A+B , M 

90 P0KEC-1HI!A-B> 102:POKED-11#A-B,M 

97 IF RND<1»0.3 THEN 120 

100 P0KE36879, 16#<INT<RND<l)#16))+INT<RNDCl)*8)+8 

120 P0KE36878,INT<RND<1)«15)+1 

130 P0KE36874. INT<RND<1)«128)+128 

140 P0KE36875, INT<RHD<1)#128)+128 

150 P0KE36876,INTCRND<1)#128)+128 

180 P0KE36877. INT<RHD<1)#128)+128 

195 IFRND<1».1 THEN205 

200 POKE36878.0 

205 IFRND<1».3 THEN215 

210 POKE36874.0 

215 IFRNI)<1)>.3 THEN230 

220 POKE36875.0 

230 FORT=1TORND<1)#20 +5 -NEXT 

235 IFRND<1».3 THEN250 

240 POKE36877,0 

250 POKE36876.0 

500 COTO10 



Victim 



This game is simplicity itself. You choose your 'victim', a number from one to six, and then sit 
back and watch the Victim race get underway. 

Lines 1 5 and 55 are interesting. They allow the VIC to assign a different colour to each num- 
ber, but the same colour to each number when it is printed. You'll see what I mean when you run 
it. The sound routine, starting at line 1 000, may well benefit from your programming skills. 
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5 P0KE36879.8 
10 REM VICTIM 

12 PRINT"T : PRINT : PRINT = PRINT = PRINT : PRINT : PRINT 
15 R$«"%in«n" 

20 PRINT " NAME VOUR VICTIM"...,,.,"!* <1 TO 6)" 
30 INPUTW 

35 ifw<1orw>6then30 
40 forj«1to6:b<j)=0-nekt 
50 print"t:rem clear screen 
52 print"*': rem home 

54 F0RM«1T06 

55 C*=MID*<fl*,M.l) 

60 PRINT TflB<B<M>>;C$ ;M 
65 GOSUB1000 
70 PRINT 

80 BaD'B'aD+INTCRND'JD+.S) 

90 IFB<M)>1STHEN120 

100 NEKT 

110 G0T052 

120 F0RZAMT08 

130 PRINT 
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140 NEXT 

150 PRINT" aa END OF RACE 
160 PRINT 

170 PRINT" ISSTHE WINNER IS"M 

130 IFW=MTHENPRINT"BnND VOU BACKED IT! ! " :PRINT"WELL DONE" 
185 PRINT 

190 IFWOMTHENPRINT"a BUT VOU BfiCKED"W: PRINT :PRINT"S BAD LUCK" 
200 PRINT 

210 FOR>1TOS00:NEKT 
220 PRINT" PRESS flNV KEV TO" 
230 PRINT"!H START" 
240 PRINT"a A NEW RACE" 

250 GETV$ 

260 IFV*«""THEN250 
270 RUN 

1000 P0KE36878.15 

1010 F0RQ=1T0 A<M) 

1020 P0KE36876, 180+INT<RNDC 1 )#60) 

1030 NEXTQ 

1040 POKE36878.0 

1070 RETURN 



Evolution 

In 1 970, John Conway, who was then attending Cambridge University, invented the game of 
LIFE, which rapidly became a computer 'hit' after it was described in the October 1 970 issue of 
Scientific American. 

LIFE, which simulates the birth, growth and death of a cell colony, produces rather splendid 
visual effects. 

Mr. Conway's rules are simple, but produce unpredictably interesting results. The cells in LIFE 
are born, live or die in accord with the dictates laid down by the God Conway. According to his 
writ, each cell has eight neighbours; every cell with two or three neighbours survives to the next 
generation; if there are three, and only three, neighbouring cells, a new cell is born; and any cell 
with four or more neighbours dies from overpopulation. 

EVOLUTION is a version of LIFE written especially for the VIC. Setting up a black screen with 
a red border, the program puts cells on a 1 4 x 14 grid in accordance with the Conway rules. 
The game as listed is silent, but if you'd like to add a little sound — which tells you how things 
are going in the program— add the following lines: 



6 POKE 36878,7 

225 POKE 36876, 240:POKE 36876,0 

1075 POKE 36876, 235:POKE 36876,0 
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Structure of the program: 

Line 1 0: Dimensions the arrays to hold the cells as they evolve. 

Lines 20 to 80: Generate the first 'evolution' of the colony, creating a cell in line 1 5 if the ran- 
dom number generated is greater than 0.5. The elements of the two arrays are set equal to 
each other in line 60. 

Line 90: Sends the action to the subroutine which prints out the evolving colony. 

Line 95: Increments the evolutionary count. 

Lines 1 00 to 200: Count the number of occupied cells around each cell in the colony. 
Lines 21 and 220: Alter the element in the B array in accordance with the findings of lines 
100 to 

200. Note that the A array is unchanged at this time, so a change due for the next evolution 
will not interfere with the current evolution being studied. 
Line 250: Do it again, VIC 

Line 1 000 to 1 090: This routine prints out the colony, updating the A array as it does so. 

Suggestions for improvements: 

• Change the size of the grid . 

• Ensure that each cell is printed in a randomly chosen colour. 

• Have each element of the colony give up a little bleep or blurp, depending on whether the ele- 
ment is occupied by a cell or not. 

• Add a routine to take the place of lines 20 to 80 to allow you to enter your own starting col- 
ony. 

• Add a routine (as part of the PRINT subroutine) to count the number of occupied cells, which 
will automatically RUN the program from the beginning if the number drops below, say, five. 
This rerun could select a new border and/or screen colour. 

5 REM EVOLUTIOM 

7 PRINT"T:REri CLEAR SCREEN 

8 PRINT" SG" 

9 POKE 36879, 10: REM RED BORDER.. BLACK SCREEN 
IS Dirifla4.14).E<14.. 14) 

20 FORK'2 TO 13 
30 FORV-2 TO 13 
50 IF RND<1»0.5 THEN fl';XA')-l 
60 B<X,V>=fi(X..V> 
70 NEKTV 
80 NEXTH 
90 GOSUB1000 
95 G=G+1 ■' 
100 F0RK'=2T013 
110 F0RV=^2T013 
120 C^0 

130 IF fl<M~l..V-l>^l THEN C:<:+1 

140 IF A';;-;-iA')^i then c-c+i 

150 IFA<K-l;V+l>=i THEN C=C:+1 

160 ifa<;-:/t'-i>^i then c-c+i 

170 IFfl<M,V+l)-l THEN C<+1 
190 IFfiO;+l..V-l>=l THEN C=C+1 
190 IFfl<v+l,V)-l THEN C=C+1 
200 IFR(X+1..V+1>=1 THEN C=C+1 
210 IFfl<X,V)'=l AND C02 AND COS THEN E<K.¥>-0 







i*** • m 
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220 IF fl<X.V>^6 AND C=3 THEN B-'X/t')^! 
230 NEMTV 
240 NEXTM 
250 6OTO90 
99? END 

1000 PRINT"M":REM HOME 

1003 PRINT: PRINT" EVOLUTION »";G; "Bl" :REM WHITE. VELLOW 

1005 PRINT 

1010 FORX^ITOH 

1020 F0RV=1T014 

1030 flCX.V)=B<X.V> 

1040 IFfl<M..V>=l THEN PRINT"*"; 

1050 IFfl<X.V)=-0 THEN PRINT" "; 

1060 NEXTV 

1070 PRINT 

1080 NEXTX 

1090 RETURN 



In this program you and the VIC (with thunderstorms, lightning bolts and other distractions) 
take it in turns to roll a dice trying to get a total as close as possible to— or equal to— 2 1 , without 
going over 21 . This game is a dice version of Blackjack. 

It is very simple to play. After pressing RUN, you'll be told to touch the "Z" key to roll the 
dice, the "M" key to stand, that is, to stay with the total you now have. Your total will appear, 
and the choice to roll or stand again. Once you've decided to stand, the VIC will start to roll, and 
will— in two games out of three, on average— beat you. 

Structure of the program: 

Line 1 0: Sets the counter for the human (H) and computer (C) scores. 

Line 20: Sends action to the wild and crazy subroutine which selects colours and sounds ran- 
domly. 

Lines 30 to 80: Accepts and acts on the player's decisions. 

Lines 90 to 1 30: Computer decides whether to add to its total or stand. 

Lines 1 40 to 2 50: Decides who has won, creates some more mayhem, starts a new game. 

Line 260: Delay loop, called various times during the program. 

Line 990: Assigns A$. 

Lines from 1 000: Selects an element from A$ to change the colour, then does some quite ex- 
citing things with the colour and sound. 




5 REM VIC-ET-UN 

7 PRINT"T:REM CLEAR SCREEN 

10 H=0:C=0 
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20 GOSUB990 

30 PRINTS*;" ENTER 2 TO ROLL": GOSUB1000: PRINTS*;" M TO STAND" 

35 GETM$:IFM*=""THEN35 

40 IFM*="M"THEN90 

50 H=H+INT<RND<1)*6)+1 

50 GOSUB260:GOSUS1000 

70 PRINT: PRINTS*;" VOUR TOTfiL IS"H 

75 GOSUB260 : GOSUB260 : PR I NT 

80 GOTO30 

90 IFOH AND C<22 OR 021 OR H>21 0RH=21 ANDC=21THEN 140 
100 C=C+INT<RND<1)#6)+1 
110 GOSU52e0 

115 PRINT: PRINT 

120 GOSUE1009: PRINTS*;" MV TOTAL IS"C 
130 GOTO90 

140 GOSUB1000:PRINTB*; 

1 50 6OSiJE2e0 : GOSUB 1 000 : GOSLiB260 

170 IFH<:0R<H>21ANDC>2i )THEN24P 

175 PRINT: PRINT: PRINTS*; 

180 IF<C>H 0RH>21)flNDC<22 THENPRINT. "I"; 

190 IF<C<H0RC>21)ANDH<:22THENPRINT, "VOU"; 

200 GOSUB 1 000 : PR I NTS* i" WIN!!" 

210 GOSUB260 

220 GOSUB 1000 

225 FORJ= 1 TOr : GOSUB260 : NEKT 

226 GOSUB 1000 
230 PRIHT".T' :RUN 

240 GOSUB1000: PRINTS*; "DEAD HEflT. BUDDV" 

250 G0T0225 

260 FORE=1TO500:NEXT 

270 RETURN 

990 A*="raa!^ia" 

1000 B*=MID*<A*. < INT<RND< i )*7H1 ) .. D 
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1010 FORJ^1TOINT<RHD<1)*10>+1 
1020 P0KE36S78. INT<RHD< 1 )*iei>+6 
1030 F0RK=1T0INT<RND<1 )*7>+2 
1040 P0KE36876, K+180-INT<RHD< 1 y*30) 
1050 NEKTK.J 

1070 P0KE3687S.. INKRHDC 1 >*3>+2S : P0KE36879, 8 
1075 P0KE36S79.. IHT(RND< 1 >#3)+28 
1080 P0KE36879.INT<RND<l)#3)+28 
1090 POKE36878.0 
1100 RETURN 



This game needs two players, one to enter a word of her choice and the other player to at- 
tempt to guess the word. The VIC draws a dash for each letter, and then changes this into any 
letter which has been guessed correctly. 

Structure of the program: 

Line 50: Sets up arrays if needed. 

Lines 1 00 to 1 30: Accepts the secret word, a letter at a time. 
Line 135: Counts for the 1 guesses. 

Lines 1 45 to 1 70: Select colours at random using the subroutine from 901 0, prints the letter if 

it has been guessed, if not prints a dash. 
Lines 21 0to 260: Accepts a guess and compares it, letter for letter with the secret word. 
Line 270: Sends control to winning message if word is guessed. 
Line 300 to 330, then from 1 045: Losing message, reveals word. 

Lines 1 055 to 1 1 00: Offer new game. If not accepted rePRINTs OK, THANKS FOR PLAYING 

in different colours, over and over again. 
Routine from 5000: Adds some sound to brighten things up. 

Routine from 9000: Assigns the colour controls to string A$, and then when subsequently 
called (as GOSUB 901 0) changes the next thing to be printed to a random colour. This 
subroutine also calls the sound subroutine, then flashes (line 9025) giving the border a 
random colour. 

Suggestions for improvement: 

• Get the program to draw a hanged man, part by part, as the number of guesses is used up. 

• Store a number of words in a DATA statement, so the VIC can choose its own words. 

• Note that the random colour choice, the sound routine from 5000 and the random border 
flash are ail effective aids to add to your own programs to brighten them up. 



10 REM HflNGMflN 

29 PRIHT"r]":GOSUE9000 

30 INPUT "HOW MflHV LETTERS" ;N 
50 IFNM0 THEN DIM B<N),D<N) 
100 F0RR=1T0H:INPUTC* 

120 B<fl>=flSC<C$>:D<fl>=B<fl> 
130 NEXT 
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135 FORJ=1TO10:PRINT"T 

140 PRINT: PRINT: PRINT 

145 F0RE=1T0N 

150 GOSUE9010: PRINTS*; 

155 IFB(E>=D<E> THEN PRINT"-".; 

160 IFB<E)OD<E)THEN PRINT CHR*<B<E)); 

170 NEKTE 

180 PRINT: PRINT 

190 H=0 

200 GOSUB9010: PRINTS*; "ENTER GUESS NO. "J 

210 INPUTC* 

220 F=flSC<C:$) 

230 F0RG=1T0N 

240 IFD<G)=F THEN DCG>=0 

250 IFD<G>=0THEN H=H+i 

260 NEXTG 

270 IFH=NTHEN 1800 

280 NEXTJ 

290 PRINT 

300 GOSUB9010:PRINT"SORRV. TIME IS UP" 
310 PRINT 

320 GOSUB9010: PRINTS*; "THE WORD-WflS "; 
330 GOTO1045 
1000 REM UIN 
1010 PRINT 

1020 GOSUE9010 : PRINTS*; "VOU GOT IT IN" J 
1040 PRINT 

1045 F0RQ'^1T0N:PRINTCHR*<B<Q)); :NEXT 
1050 PRINT 

1055 GOSUB9010 : PRINTS*; "SfiNOTHER GAME"; 
1060 INPUTC* 

1070 IFflSC<C*>=flSC.<"V")THEN RUN 

1080 GOSUB9010 : PRINTS*; "aOK, THANKS FOR" 

1090 GOSUB9010 : PRINTS*. " SPLflVING ! " 

1095 FORT=1TO300:NEKT 

1097 PRINT 

1100 GOTO 1080 

5000 REM SOUND 

5010 P0KE36878.INT<RND<l>*6)+8 

5020 FORT-1TO100STEP< INT<RND< 1 )*8)+l ) 

5030 POKE36876.240-T 

5040 P0KE36877.T 

5060 NEXT 

5070 POKE36876.0 

5080 POKE36877.0 

5090 RETURN 

8990 END 

9000 f\$="Ul%MSH" 

9010 E*=MID*<fi*. < INT<RND< D*7>+1 ) . D 
9020 GOSUB5000 

9025 P0KE36879 . 1 NT < RND < 1 > *6 J +26 
9030 RETURN 



78 



Codebreaker 



The game Mastermind is copyright Invicta, who sell a number of versions of the game which 
use coloured pegs. Invicta bought the rights to the game from an amateur mathematician, 
Mordechai Meirovich, in 1 971 , and a couple of years after they first marketed it, had a world- 
wide best selling game. 

The game has been known in England for centuries as Bulls and Cows. Another popular ver- 
sion is called Codebreaker. 

The principle is simple. The VIC20 picks a three-digit code (such as 259), using the number 1 
to 9. Zero is not used, and no digit is used more than once in the code (so 117, 494 or 666 are 
impossible). You have to guess the number in 1 guesses or less. The feedback from your VIC is 
fairly easy to interpret. After each guess you are told YOU SCORED 2 BLACKS and WHITES, 
in which a 'black' is a correct digit in the correct place in the three-digit code, and a white is a 
digit which does appear in the code, but not where you put it in your guess. The computer prints 
out the answer if you fail to get it within 1 guesses. 

Structure of the program: 

Lines 30 to 50: Generate three random numbers between one and nine. 

Line 60: Checks to ensure all numbers are different. If they are not, sends VIC back to the 

routine 30 to 50 again to create three more. 
Line 70: * Turns the three separate digits into one three-digit number. 
Lines 80 and 330: Control the 'guess loop'. 
Line 90: Prints number of the guess. 
Line 95: Accepts the player's guess. 

Lines 1 00 to 1 20: Splits the player's guess into three separate digits so they can be compared, 

item by item, with the computer's numbers. 
Line 1 30: Compares the two three-digit numbers. If they are the same (i.e. if D equals X) then 

the VIC goes to the win routine starting at line 360. 
Line 1 50: Sets the counters for black (N) and white (W) to zero. 

Lines 1 70 to 2 1 0: Looks for blacks. If it finds one (that is, if it finds a correct digit in a correct 
position) it increments N by one (lines 1 90) and changes that element of the original num- 
ber (A(1 ), A(2) or A(3)) to a zero, so it will not be rechecked in the 'white routine'. 

Lines 220 to 280: Check for 'whites', incrementing W by one each time one is found. 

Line 290: Reconstructs the computer's number from D, restoring elements turned to zero in 
line 200. 

Lines 320 to 325: Print out the player's score. 

Lines 340 to 350: This is only used if the player is unable to guess the code in 1 guesses. 
Lines 360 to 380: This is the win routine. 

Suggestions for improvement: 

• Reduce the number of guesses once you've mastered the game (six is a good number). 

• Change the game so it selects colours, using a numerical code to (a) print blobs of colour, and 
(b) to accept player input. 

• Add sound so a particular effect comes each time the player gets a black, with another effect 
for a white. 

• Add a wild, flashing, noisy end if the player guesses the code correctly. 
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10 PR I NT "T 

30 F0RZ-1T03 

40 fl':Z>-IHTc:RHD'::i>*9) + 1. 

59 NEXTZ 

60 IFRa)^fi<2':'0R Ra>=fl<3>0R fl<2)=FI'-;3> THEH30 
70 D-100*Rri)+10*fl<.2>+fl«:3) 

SQ FORC^ITOIO 

SQ PR I NT "GUESS ";c.; 

95 INPUTK 

100 E<l)^IHT(Vi00> 

110 E'r.2)^IHT<<K-190*B<l>)/i0> 

1 20 E < 3 > ^H- 1 00*B < 1 > - 1 0#B < 2 > 

130 IFD=M THEN360 

150 N^0:W^0 

170 FOR E^l TO 3 

180 IFfl<E>OBCE) THEN 210 

190 H=H+1 

200 fl<E>^0 

210 he: :te 

220 F0RF-1T03 

230 IFfl<F)^0 THEN 280 

240 FOR E^l TO 3 

250 IFB<F)Ofl<E) THEN 270 

260 W=W+1 

270 NEKTE 

280 ne;-;tf 

290 fla)-INT(D,''100) 

300 fl < 2 > = I NT < D- 1 00*fl ( 1 > ) / 1 > 

310 fl(:3::'-^D-100#fl<l)-10*fl<2) 

320 PRINT"i*r'OLi 3SC0RED" 

325 PR I NT " I " .; N .; " BLACKS Mi" ; W ; ' WH I TES3" 

330 NEKTC 

340 PRINT-'^IV NUMBER WfiS"..fl<Dia<2>;R<3> 
350 END 

360 PR I NT " rCONGRRTULRT I ONS " 
370 PRINT"!!ri'OU GOT IT IN";C 
380 END 

Symphony for a Melancholy 
Computer 

This piece reflects an effort to write a program which would 'write music' that had some un- 
derlying form. The title is obvious and appropriate, once you've heard the comuter's output 
from this program. 

The main structure of the music comes from the variables A, B, C, D, E and F which are de- 
fined on each run. The program is designed so that the chords change with reference to a 
measure (E) and so that the changes overlap each other, thus getting rid of harsh stops and 
starts. 
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10 REM SVMPHONV FOR 

15 REM Fl MELRNCHOLV 

16 REM COMPUTER 

18 GOSUBieee 

20 fl-128+INT<RND(l)«128) 
30 B=128+INT<RNDCn#128) 
40 C=128+INT<RNL<1)#128) 
50 D=128+INT<RND<1)*128) 
60 E=INT<RND<1)*4)+1 
70 F=2*E 
75 P0KE36878>F-1 
30 F0RH=1T05*E 
100 P0KE36874,fl 
110 NEXTH 
120 F0RH=1T05*E 
130 P0KE36875.B 
140 NEXTH 
150 F0RH=1T05*E 
160 P0KE36876.C 
170 NEXTH 
180 F0RH=1T05*E 
190 P0KE36877.D 
200 NEKTH 
210 F0RH=1T02*E 
220 P0KE36874.fl 
230 NEXTH 
240 F0RH=1T05#E 
250 P0KE36876,C 
260 NEXTH 
500 RUN 

1000 PRINT"T:REM CLEAR 
1010 P0KE36879. 16#<INT<RND<l)*16>)+<INT<RHD<l)*8))+8 
1020 RETURN 



Symphony for a Melancholy 
Computer with Zen Show 

This is the same program as just listed, with an underplayed visual display added. 

10 REM SVMPHONV FOR 

15 REM fl MELflNCHOLV 

16 REM COMPUTER 

17 REM WITH ZEN SHOW 

18 GOSUB1000 

20 fl=128+INT<RND<l)#128) 
30 B»128+INT<RND<1)#128) 
40 Csl28+INT<RNL<1)#128> 
50 D=128+INT<RND<n*128) 
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60 E=INT<RND<n#2)+l 
70 F=2*E 
75 P0KE36878.F-1 
90 F0RH=1T05#E 
100 P0KE36874,fi 
110 NEXTH 
120 F0RH=1T05*E 
130 P0KE36875,B 
140 NEXTH 
150 F0RH«1T05#E 
160 P0KE36876.C 
170 NEXTH 
180 F0RH=1T05*E 
190 P0KE36877,D 
200 NEXTH 
210 F0RH=1T02*E 
220 P0KE36874..fl 

230 hej<;th 

240 F0RH=1T05#E 
250 P0KE36876.C 
260 NEXTH 
500 RUN 

1000 PRINT"T:REM CLEAR 
1010 P0KE36879. 16*< INT<RND< 1 >*16> >+< INT<RND< 1 )*e) H8 
1020 F0R.J=1T05 
1030 PRINT 
1040 NEXT 

1050 PRINT"2JSVMPH0NV FOR fl MELflHCHOLV COMPUTER 

1060 PRINT 

1065 FORJ=1TORND<1>*20: PRINT" :NEXT 
1070 PRINT CHR*<119+IHT<RND<1)*15)) 
1075 FORJ'=1TORND<1.)*20: PRINT" ^NEXT 
1080 PRINT CHR$<119+INT<RHD<1)*15>) 
1085 FORJ=1TORND<1)#20: PRINT" :NEXT 
1090 PRINT CHR$<119+INT';RND<D*15>) 
1095 FORJ=lTORND<n#20:PRINT" ";:NEXT 
1100 PRINT CHR*<119+INTCRND<'1)*15)) 
1110 RETURN 




Fairway 

In this game, you are on a nine hole golf course. The length of each hole varies each time you 
play the game. The program makes much use of POKEing to create the green, and move the ball. 
The sound the ball makes is particularly interesting if you overshoot the hole. 

There is no need for me to explain how the program works, as it is generously provided with 
REM statements. 
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10 REM FfllRWflV 

15 P0KE36879.28 

20 SC=0:REM SCORE 

30 flV=0:REM flVERflOE 

100 F0Rfl=lT09:REri NO. OF HOLES 

105 T=0:REMTflLLV THIS HOLE 

110 D=INT<RND<l>*7)+14:REri DISTANCE TO HOLE 

120 PRINT"T:REM CLEAR SCREEN 

125 C=0 

130 M=0 

400 OOSUB6000 

500 GOSUB5000 

510 IFMOD THEN 500 

520 IFflBS<M-D)<2 THEN 8000 
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525 IFM>21 M=21 
530 GOTO500 
540 END 

5000 PRINT "JBSHOLE NUMBER"fl 
5005 PRINT. D*10"VflRDS" 
5010 PRINT 

50 1 2 PR I NT " iSCORE " SC " ifTflLLV " T 
5015 IFD=M THEN 8000 
5020 PR I NT "TO I STANCE FROM HOLE:" 

5025 IF D-M=>10 THEN PRINT"a"<D-M)*10"VflRBS 

5026 IF D-M<: 10 THEN PRINT" "<D-M>*10"VflRDS 
5030 PRINT"r 
5040 INPUT"WHICH CLUB";C 
5042 T^T+1 

5044 GOSUB7000 ^^^^i^w.^ 

5045 POKE38730+M> 1 ^ J'Syl^'vS^ r»fc5 
5047 IFM>D THENC=-C Tri-fr^*^?» 

5060 M= INTCM+C/3JKRNDCI+D) MMECM. <:i-.U» 
5065 C=0 

5070 POKE8010+M.81 - 
5080 POKE38730+M/2 
5090 RETURN 

5999 END 

6000 REN DRAU GREEN 
6010 FORQ=8032TO8119 





6020 POKEQ..102 
6030 POKEQ+38752-8032*5 
6040 NEXT Q 
6050 POKE8032+D,74:POKE8033+D>75 
6060 P0KE38752+D , 2 = P0KE38753+D , 2 
6065 POKE8010+ri.81 
6070 POKE38730+I1.2 
6100 RETURN 
7000 FORW=128TO180+3#M 
7005 P0KE36878.15 
7020 P0KE36875,W 
7030 P0KE36874.W 
7040 NEMTW 
7050 POKE36875.0 
7060 POKE36874,0 
7500 RETURN 
8000 T=T-1 

8002 POKE36876>220 

8003 F0RP=1T05:NEXT 

8004 P0KE36876 . = P0KE36876 . 225 : P0KE36876 .. 3 
8010 PRINT"V0U GOT IT IN"T 

3020 PdKE8010+M. 1 
8030 POKE8032+M.ei 
8040 P0KE38774+M,5 
8050 POKE8033+M. 102 
8060 P0KE38775+ri.5 
8062 SC=SC+T 

8065 PRINT"iflVERflGE" INT<SC/fl+. 5> 



84 




Jelly Bean Space Swarm 

in Adam Burbidge's program, you are the navigator on a starship. Suddenly you find yourself 
embroiled in an asteroid storm. Only you can Save The Ship From Destruction. 

You are the purple checkerboard in the left hand corner of the screen. As you'll see when you 
run it, the asteroids appear at different points. By using your two controls (4-left, 6-right) you 
have to steer out of the way of the asteroids (which look somewhat like jellybeans, hence the ti- 
tle). The pressure increases as the game continues. The number of asteroids increases, and their 
colour changes. 

1 REM JELLVBEfiN SPACE SWflRM 

2 REM EV ADAM BURBIDGE 

3 REM STANDARD MEMORV ONLV 

4 SC=0:HS=0 

5 PRINT"T:REM CLEAR SCREEN 

10 FOR>1TO20: PRINT: NEXT 

11 P0KE3S879.255 
40 P0KE7746, 102 
43 B=38466 

45 P0KE38466.4 
50 FORT=1TO300:NEXT 
60 A=7746 
65 P0KEA,32 

70 GET A*: IF A*="4" THEN A=A-1:B=B-1 

71 IFA$^"6" THEN A=A+i:BsB+l 

72 P0KE<A-23),32 

73 P0KE<A-21).32 

74 P0KECA-22>.32 

75 POKEA.102 

76 P0KEB.4 
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77 FORT=1TO100:NEKT ^ 

78 IFPEEKCfl+22)=81 THEN 200 xSn^ 

79 SC="SC+1 

80 X='INT<RND<l)*506)+7680 ^MS? 

89 POKEM+30720.6 

90 P0KEX.81 bW" 
93 IF SO400 THEN 500 F1 

95 IF SO300 THEN G03UB 490 E I 

96 IF SO200 THEN COSUB 350 
100 PRINT 

110 60T065 

200 POKE 36877,220 

210 FORL=15TO0 STEP -1 

220 POKE 36878, L 

230 FORM=1TO300 

240 NEXTM 

250 NEXTL 

260 POKE 36877,0 

270 POKE36878,0 

280 PRINT"SHIP DESTROVED! ! ! ! " 

285 PRINT"SCORE=";SC 

286 IF SOHS THEN PRIHT"HIGH SCORE=";SC:HS=SC 

287 IF SC<HS THEN PRINT"HIOH SCORE=";HS 
290 FORT«1TO7000:NEXT 

295 SC«0 
300 GOTO 5 

350 V=INT<RND<l)#506)+7680 

360 P0KEV;81 

370 POKEV+30720,2 

380 RETURN 

400 D«INT<RND<l)*506)+7680 

410 POKED, 81 

420 POKED+30720,5 

430 RETURN 

500 PRINT"WELL DONE, VOU'VE" 

510 PRINT"SUCCESSFULLV NflVIGflTED THROUGH" 

520 P0KE36878, 13 

530 P0KE36876, 135 

540 FOR 0=241 TO 135 STEP-1 

550 FORM=1TO100 

555 P0KE36876,0 

560 NEXTM 

570 NEXTO 

580 POKE36876,0 

590 POKE36878,0 

600 END 
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Superpoet 

The VIC turns into Wordsworth, cranking out some splendid poems, and a few which are not 
so brilliant. Once you've seen it in action, change the words in the subroutines 100 to 270 to 
suit your own taste. Note the use of ON...GOSUB in line 40. 

5 REM SUPERPOET 

10 PRINT'-T^REM CLEAR SCREEN 

15 IF RND<1»0.3 THEN 30 

20 F0RJ=1T0RND<1)#2: PRINT: NEXT 

30 F0RJ=1T0 RND<1)#5+1: PRINT" "; :NEXT 

35 J=INT<RND<1)#18)+1 

40 ON J GOSUB 100. 110. 120, 130, 140, 150. 160, 170.180; 190, 200. 210. 220. 230, 240, 250; 26 
0.270 

50 F0RP«1T0 RND<1)*2000:NEXT 
70 GOTO 15 

100 PRINT"iDETflCHED"; : RETURN 
110 PRINT"!»JNflWflRE"; : RETURN 
120 PRINT"UUNflBLE"; : RETURN 
130 PRINT-aiNITIflTE"; : RETURN 
140 PRINT-IREflCHED OUT FOR";: RETURN 
150 PRINT'-SRVOIDS"; : RETURN 
160 PRINT"!JISUFFERS";: RETURN 
170 PRINT"iCflPflCITV"; : RETURN 
180 PRINT-nePIRITUflL"; : RETURN 
190 PRINT"kflLTHOUGH"; : RETURN 
200 PRINT'-IDISCIPLE"; : RETURN 
210 PRINT"WE"; : RETURN 
220 PRINT"flND"; = RETURN 
230 PRINT"«THEN"; : RETURN 
240 PRINT"il1flSTER"; : RETURN 
250 PRINT"!IFFTER"; : RETURN 
260 PRINT"!ILONELV" J : RETURN 
270 PRINT"IWIS"; : RETURN 



AND THEN 
UNA WARE 
UNABLE 

ALTHOUGH 
AND MASTER 

REACHED OUT FOR 

UNABLE 

MA S TER RETURNED 
UNABLE 
CAPA CITY SPIRITUAL 
DISCIPLE HE 
LONELY HE 

A VOIDS LONEL Y MASTER 
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Zauper Attack 



In this program by Christopher Hutber of IVIiiton Keynes, you must zap the Aliens before they 
are eaten by the Zaupers. You need to take care because these creatures may also eat you. "Z" 
moves your gun left, and "C" moves it right. "X" will fire your gun. Full instructions are within 
the program. 

Structure of the program: 

Subroutine from 7000: This sets up a title page and gives the player instructions if they are 
wanted. 

Line 8: Reads the time for the start of the game. This is compared, in due course, with another 

reading (line 1 005) to see how long the round took you. 
Lines 1 5 to 70: Draw Aliens. 
Lines 1 00 to 1 20: Draw gun. 
Lines 1 40 to 1 92: Get commands from player. 
Lines 200 to 320: Move the gun. 
Routine from line 400: Fire gun. 
Line 555: Increment score. 

Routine from line 1 000: End of game, new game option. 
Routine from line 3000: 'Active Zaupers' . 

g PRTHT'TJ" 

1 REMBRKPBLE PROGRAMME ?v CHRISTOPHER HUTBER AGED 12 
? REM 24-27/12/81 
3 GOSUB 7000 

8 T1«TI 

9 SC»0 

10 PRINT" T 

13 REM ORflN RLIEN8 

19 POKE 36879^8 

20 FOR I»3e40e TO 38531 
30 POKE LI 

40 NEXT I 

50 FOR H«7680 TO 7767STEP 3 
60 POKE H/Sl 
70 NEXT H 
90 REM BRBN GUN 
100 T*7955 

110 FOR R"38664T038664-t-21 

112 POKE R.7 

114 NEXT R 

120 POKE T.65 

130 IF 8C«30 THEN 1000 

135 REM OET INSTRUCTION 

140 OET R«!IF Rf«""THEN 3000 

170 IF fl*»"X"THEN400 

180 IF R«""C"THEN300 

190 IF Rf""Z''THEN200 

192 IF R«"''»"THEN 5000 
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195 GOTO 140 
197 REM MOVE GUN 
200 FOR B«7944T07965 
210 POKE B^70 
220 NEXT B 
230 T«T-l:OOTO 120 
300 FOR B>7944T07965 
310 POKEB«70 
320 NEXTB 

330 T-T+i:OOTO 120 

399 REM FIRE 

400 FORF-TTO7680+<T-7944>8TEP-22 
410 P0KEF«46 

412 FOR 14-1 T025:NEXTU 
414 POKE F.32 

420 IF PEEK(F-22>>'81THEN GOTO 480 

430 NEXTF 

455 POKE F't'22/96 

460 FOR I>1TO50:NEXTI 

470 POKE F^87 

472 FOR G«7680+<T-7944)TOT-228TEP22 
474 POKE 8^96 
480 POKEF-22^32 

482 IF PEEK(F)O8inNOF<7702THEN GOTO €80 
488 POKE 36877/220 
490 L"7 

500 POKE 36878/ L 
510 FOR n*lTO 200 
520 NEXT n 
540 POKE 36876/8 
550 POKE 36878/0 
555 8C-8Cf 1 
560 PRINT" KCORE: 
600 PRINT" «CORE: 
1000 PRINT"3" 
1005 T2«TI 
1010 POKE 36879/30 
1020 PRINT"lflUEU. DONE!" 
1038 PRINT''VOU UIPEO OFF THE 

1031 POKE 36878/ 15 

1032 FOR L"l TO 180 

1833 POKE 36876/ INT(RNS<1)«128)+128 

1834 FOR H«l TO 10 

1035 NEXT N 

1036 NEXT L 

1037 POKE 36876/0 

1038 POKE 36878/8 
1840 PRINT SPRINT 
1858 PRINT''PLflV ROFIIN 7" 
1055 PRINT! PRINT 
1868 OETSf 

1878 IF 8«»'"'THENie60 
IF 8f«"V"THEN 8 



•/8C/".T:G0T0 
'/SC/".T500T0 



128 
120 




RLICNS IN "/INT((T2-T1>(^60>/" SECONDS! 
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1090 IF 8««"N"THEN1200 

1100 OOTO 1060 

1200 PRINrmB(7);"BVE BVE" 

1209 PRINT 

1210 PRINT"THFiNK8 FOR PLflVINO" 
1300 END 

2999 REM RCTIVRTE ZRUPERS 

3000 FORE"lTO10:R-INT(RNBCi>lll75}-f7680 
3010 IF R>7767 THEN 3000 

3020 Q«INT(RND(l>lli20>-^7944 

3090 D«0.9'»-RNI)C1) 

3060 IF S<1THEN V*21 

3070 IF BMTHEN V'23 

3100 FOR Z-RTOQSTEPV 

3110 POKE Z/61 

3120 POKE Z-V«32 

3130 FOR Xo1T089:NEXTH 

3190 IF nf>''«''THEN 9190 

3200 OET fl$:iF fl»0""THEN 170 

3300 NEXT Z 

3400 IF Z-TTHEN 4000 

3900 OOTO 170 

4000 PRINT"3CflUPER8 HRVE UON " 
4090 PRINT 

4100 PRINT"I100N BR8E BESTROVEDi" 

4190 REM EXPLOSION 

4200 POKE 36877^220 

4230 FOR L"igTO0STEP-l 

4290 POKE 36878^1 

4270 FOR M-1TO300 

4290 NEXT n 

4300 NEXT L 

4320 POKE 36877.0 

4330 POKE 36878.0 

4900 OOTO 1040 

9000 SC"SC-9 

9100 PRINT8C; "T 

9200 FOR KalTO 90: NEXT K 

9300 OOTO 10 

7000 PRINTTRB<3) i " fl mmhmmhb " 

7010 PRINT TflBC3>;"IZflUPER fiTTflCK!«" 
7020 PRINTTflB<3)J"l BV «" 
7030 PRINTTflB<3);"IC.R.J. HUTBER 
7040 PRINTTRB(3) ; " i ^mmmmhSP " 

7060 PRINT! PRINT 

7100 PRINT" INTRUSIONS <V OR N)?" 
7120 OET M*!IF Mf-""THEN 7120 
7130 IF M$«"N"THEN RETURN 
7140 IF Mf«"V"THEN 7900 
7190 OOTO 7120 
7900 PRINT"VES" 
7910 PRINT 

7920 PRINT" 'ZflUPER flTTflCK' 18 fl OflME OF SPEED." 
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7530 PRINT :PRINT»THE OBJECT IS TO KILL ALL THE flLIEN8 IN flS QUICK TIME flS 

POSSIBLE. " 
7540 print: PRINT 
7550 PRINT"HIT fl KEV" 
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7560 GET Nf lF Nf«""THEN 7568 
7600 PRINT"T 
7610 POKE 36879/8 
7620 PRINT" a KEV" 

7630 PRINT" " 

7640 PRINT! PRINT 

7650 PRINT" • -ALIEN" 

7655 PRINT 

7660 PRINT" ■ -ZflUPER" 
7665 PRINT 

7670 PRINT" • -VOUR GUN" 

7672 PRINT: print: PRINT 

7675 PRINT"HIT fl KEV" 

7680 GET Of! IF Of-" "THEN 7688 

7700 PRINT"T 

7710 POKE 36079/234 

7720 PRINT"ITHE ZflUPERS EfiT THE ALIENS AND WILL" 
7730 PRINT"CRflSH INTO VOU GIVEN HALF A CHANCE. " 
7735 G08UB 9880 
7740 print: PRINT 

7750 PRINT"TO MOVE VOUR GUN PRESS" 
7760 print: PRINT" 'Z'-MOVES IT LEFT" 
7770 print: PRINT" 'C'-H0VE8 IT RIGHT" 
7888 PRINT: PRINT 

7810 PRINT"T0 FIRE GUN PRESS :'X'" 

7828 PRINT: PRINT 

7838 PRINT"HIT fl KEV" 

7848 GET V*:IF V»=""THEN 7848 

7858 PRINT"T 

7988 PRINT"WHEN ALL THE ALIENS ON THE SCREEN HAVE" 

Vs^ ?g|K^'"?S!rKE"vOU BACK TO THE START AND" 

7938 PRINT"TAKE AWAV FIVE POINTS" 

7950 print: PRINT 

9000 PRINT»HIT A KEV TO START" 

3010 GET X$:IF X*=""THEN 8010 

8020 RETURN 

Im PRINr'THE^ZAUPERS ARE HIGHLV8ENSITIVE TO THE HEAT ' 
II20 PRINT"GIVEN OFF BV VOUR MOVEMENT AND FIRING, " 
9030 PRINT"THUS WHEN VOU DO SO/* 
9040 PRINT"THEV ARE PARALVSED!" 
9045 PRINT :PRINT"HIT A KEV" 
9050 GET V*:IF V*e""THEN 9050 
9060 PRINT»T 
9070 RETURN 



Superbowl 

« 

The VIC sets up the pins for you in this simulation of a 1 0-pin bowling alley, and then obliging- 
ly knocks them down, adding up your score as it goes. 
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There are 1 frames to a game, two balls to a frame. As you'll play this game, you'll find that 
strikes are few and far between. There is a highest score routine (310 to 330) which you may 
well want to adapt for other games you write. 
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5 REM SUPERBOWL 
20 V=0-S=0 

30 PRINT"T:REM CLEAR 
40 FORB=1TO10 
50 GOSUB500 

60 F0RE=1T02: PRINT: PRINT: PRINT 
65 PR I NT "3": REM HOME 
70 PRINT" !irRflME"B"SffiflLL"E 
75 PR I NT : FORT* 1 TO500 : NEXT 
80 Z=0 

90 FORC=1TO10 
100 IFE=2THEN120 
110 fl<C)=79 

120 IF RND<1)>0.5 THEN-fl<C)=45 
130 IF fl<C)=45 THEN Z=Z+1 
140 NEXTC 

145 PRINT: PRINT: PRINT 

150 PRINT. "■"CHR$<fl<10))" "CHR$<fl<9))" "CHR*<flC8))" "CHR*<fl<.'>) 
155 PRINT:GOSUB700 

160 PRINT." "CHR*<fl<6))" "CHR$<fl<5))" "CHR*<fl<4)) 
165 PRINT :GOSUB700 

170 PRINT," "CHR*<fi<3)V' "CHR*<fl<2)) 

175 PRINT :GOSUB700 

180 PRINT." "CHR$<fl<l>) 

190 PRINT 

200 PRINT" riSaSCORE THIS FRflME"Z" 
215 PRINT 

220 IFE=1 flNDZ=10 THEN 370 

230 IFZ=10 THEN Z=15:PRINT. "iSBONUS! I " 

240 IFE=2 THEN S=S+Z 

250 IFE=2 AND BO10 THEN PRINT" tISCORE SO FAR IS"S 
260 FORT=1TO1000:NEXT 
270 PRINT 
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280 
290 

300 



NEXTE 
NEXTB 

PRINT"!!(SCORE FOR THAT GAME 



UASSi"S" 



310 IFS<V THEN 330 
320 V=S 

330 PRINT" iSHIGHEST SO FflR"V 
340 FORT=1TO9000:NEXT 
350 S=0 
360 GOTO30 
370 PRINT 

380 PRINT/'!HaSTRIKE!!" 
385 PRINT 

390 FORT«1TO1000:NEXT 
410 S=S+15 
420 E=2 
440 GOTO230 

500 FORD=lTO10:fl<D)=79:NEXT 

505 GOSUB2000 

510 PRINT "9" 

520 PRINT " fIFRflME 

530 PRINT: PRINT 

540 PRINT: PRINT 

550 PRINT. "■"CHR*<fl< 10) >" "CHR$<fl<9>)" "CHR*<fl<8)) 
555 PRINT 

560 PRINT," "CHR*<:fl<6))" "CHR$<fl<5))" "CHR*<fl<4)) 
565 PRINT 

570 PRINT/' "CHR*<fl<3))" "CHR*<fl<2)) 
575 PRINT 

580 PRINT," "CHR*<fl<l)) 

585 F0RJ=1T05: PRINT" ":NEXT 

590 FORT=1TO1000:NEXT 

600 RETURN 

700 REM DELflV, SOUND 

710 P0KE36878,15 

720 F0RU=249T02398TEP-2 

730 P0KE36876,U 

750 F0RU«238T0249 

760 P0KE36876,U 

770 NEXT 

780 POKE36876,0 

800 POKE36878;0 

810 FORT' 1TO50: NEXT 

620 RETURN 

2000 REM SET UP SOUND 

2010 P0KE36878/10 

2020 F0RK»'248T0148 STEP-2 

2025 P0KE36879,26+INT<RND<1)#6) 

2030 P0KE36876,K 

2040 P0KE36875,K 

2050 NEXT 

2055 POKE36e78,0 

2060 RETURN 
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Zombie Island 



Your plane has crashed on a remote island, where the only topological features are round 
green swamps, and the only inhabitants are mindless zombies, shown on the display as letter 
Z's. The zombies are out to get you, a black 'clubs' symbol. You can move anywhere on the 
island, except through a swamp. The zombies are pretty stupid. They can see you, but not the 
swamps, and— as is well known among zombiologists— zombies drown instantly in swamps. 
You survive only if you manage to lure the zombies into the swamps. 

You control your movements on the island with four keys— "A" = up, "Z" = down, "," = 
left and "." = right. Although you may find it a little strange using these keys at first, you'll 
soon find you are automatically pressing the right key for the direction in which you want to 
move. It will help you, in the early stages of using these keys, to note that the 'greater than' and 
'less than' symbols point in the direction you will move if you press that key. These four keys 
are used in a number of programs in this book, and you may well want to use them in your own 
moving graphics games. 

The number of zombies on the island is determined randomly (line 2055) and neither they, nor 
you, can move outside the area bounded in purple on the screen. The number of drowned zom- 
bies is shown near the bottom of the screen, as is the number left alive. The zombies make 
quaint noises as they move in a reasonably intelligent way, but have some preprogrammed stu- 
pidity to give you a chance to survive. The fewer zombies there are left, the faster they move, so 
the last one alive can give you a run for your money. Each round of the game ends with an echo 
of the noise your plane made when crashing. After a short pause, a new game will start auto- 
matically. 

10 REM ZOMBIE ISLAND 
20 GOSUB20ee 

30 GfTS*: IFS*«""THEN8*=T$ 
40 RE~R ■ BE~B 

50 IFS*«"FI"THENfl«Fl-22:B«B-22 
60 IFS*="Z"THENfl«n+22!B«:B+22 
70 I FS*« " . " THENfl«fl+ 1 : E=»B+ 1 
80 I FS*« " . " THENn«R- 1 = B=B~ 1 
90 W«PEEK<fl) 

1 00 I FW« 1 27THENfl'=FlE ■ B«BE 
110 1 FU»26THENR«flE : B«BE 
1 20 I FW-S 1 THENRsRE ■ E^BE 
130 POKERE. 1 :POKEBE.. 1 
140 POKER. 88 :POKEB.0 
150 T*«S* 

160 REM CONTROL ZOMBIES 
170 F0RR«1T0V 
180 Ua0 

185 IFPEEK<Q<;R>>«81THEN260 
1 90 I FQ < R > >RTHENU*=- 1 : 1 FRND < » . 5THENU— 22 
200 I FQ C R ) <fiTHENU= 1 = I FRND < » . 5THENU»22 
210 P0KEG<R>.46:P0KEP<R).l 
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220 Q<:R)aQ<R)+U:PCR>«P';R)+U 
223 I FPEEK C Q < R ) > a88THEN400 

230 I FPEEK Q -r. R ) ? =8 1 THENTC=TC+ 1 = FOR I « 1 TO20 : P0KE36875 1 

2S5~3#I ■• NEXT : P0KE36875. = GOT 0260 
235 IFPEEK<:Q<R>>*127THENQ<R>aQ<R>-U:P<R>-P<R>-U 
240 P0KEQ<R).26:P0KEPCR).2 
260 IFTCaVTHEN3l0 
270 POKE36874.250-RHD<:0)*15 
290 NEXT 

295 PR I NT " mmm m mm m mmmH.Lw " tc " out qf"v 

300 OOTO30 

310 PR I NT " mmmmi m mm m mPLv-f " tc " out of"v 

312 POKE36878.0 

315 PRINT" tWVOU'VE SURVIVED!!" 

320 GOTO407 

400 P0KEQ<R),26:P0KEP<R).2 
402 POKE36874.0 

405 PR I NT " mmm mmmmimimHX^ " tc " out of"v 

406 PRINT" SPfTHflT^S THE END!" 

407 FORV«1TO100 

408 PCIKE36877 > 1 30+RND < > * 1 00 
420 NEXT 

430 POKE36877.0 

440 FORV=1TO3000:NEXT 

450 RUN 

2000 REM INITIALISE 
2005 PRINT"::!" : V«0 
2010 F0RJ=1T015 

2020 P0KE7e79+ J .. 1 27 : P0KE3S399+J , 4 
2030 P0KE7987+ J . 1 27 = POKE3e707+ J , 4 
2040 NEXT 

2050 FORJ«7680TO7988STEP22 = POKE J / 1 27 : POKE30720+ J » 4 

2054 Z=INTCRND<0>*1 1 >+3 = 21 = INT<RND<0>*1 1 >+3 

2055 I FJ>7680RNDJ<7988THENPOKE J+Z .81: POKE J+Z+30720 , 3 

2056 T=0 : I FJ>7680flNDJ<7988RNDRND < ) > . 6THENT« 1 

2057 I FT= 1 THEN V= V+ 1 : Q < V > = J+Z 1 : P < V > « J+Z 1 +30720 = POKEQ C V > . 26 = POKEP < V > . 2 
2060 POKEJ+15. 127:POKE30735+J..4 

2070 NEXT 

2080 fl«7726 : B«38446 : REM START POSITION PLflVER 

2090 POKER. 88: POKED. 

2100 T$«"." 

2120 P0KE36878.15 

2500 RETURN 




Motorcycle Jump 

You are Evil K., world champion stunt rider, and your task in this graphic game on the VIC 20 
is to jump over a number of red London buses. Each time you succeed, a new bus is added to the 
ones you must leap. 

When you run the program, you'll be told the angle of the ramp, and the number of buses you 
must jump. You enter the speed at which you wish to leave the ramp (we suggest you start off 
between 34 and 40 miles per hour) and you'll see, and hear, your motorbike spin up and over 
the ramp, and— I hope— over the buses. If you succeed, the ramp will be raised, and the number 
of buses will be increased. 

Because the angle of the ramp affects the distance you can clear, and because this program 
uses an approximation to genuine formulas to work out whether or not you would clear the 
buses given a particular take-off speed on a ramp of that angle, you'll find your interest in this 
program will remain high, no matter how many times you play it. There is no way, for example, 
to know that if there are four buses, a speed of 42 mph will always clear them. It depends on the 
angle of the ramp. 

If you use too much acceleration, you'll flip upside down. Too little, and you'll crash. Far too 
little, and the program will tell you that you've "bingled"! If you manage to clear eleven buses, 
you'll be declared "The Champ". 



10 REM tlOTORCVCLE .JUMP 

12 POKE 36879,24 

15 PRIHT"n":i>7 

20 GOSUB2000 : REM VFlRIfiBLES 

30 GOSUE3000 : REM DISPLFiV 

100 GOSUB1000:REM CflLCULFlTE 

105 fl*«" BINGLED I" 

110 I FflBS C F~L > >5THENfl$« " CRASHED " 

120 IFF>«LflNDF«<L+15 THENfl*«" SUCCESS" 

130 I FF>L+15THENPI*=" LANDED UPSIDE DOWN" 

140 U«l :GOSUB3000 

145 L«L+10:N«N+INT<RNDa>#3+l> 

147 B«B+1 : IFB=11THEN5000:REM CHAMPION 

200 GOTO 100 

300 REM SOUND FX 

310 POKE36877.220 

320 P0KE36878.K^3 

330 RETURN 

360 POKE36877,240 

370 P0KE36878,1.7*Z 

380 RETURN 

1000 PRINT"ismRAMP >"N" DEGREES" 
1010 PRINT"J!rrHERE flRE"B" BUSES" 
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1020 PRIHT"WrHIS IS ATTEMPT "R 

1 040 I NPUT " WSPEED " J V = I F V<*0THEN 1 040 

1 043 FORK« 1 TO500 = NEXT 

1 050 R«fl+ 1 : E» < V*S28 V360 

1060 F«<E*COSCN> >*< CE*SIN<N) >/32. 2> = F«RBS<F> 
1070 RETURN 

2000 Ls10:N=25:B«1 :Ral 
2030 RETURN 

3000 PR I NT " mmm mmmfiMmmm^" ; 

3010 F0RZ»1T0B 

3020 PRINT'TSli"; 

3030 NEXT 'PR I NT 

3040 IFU»7THENRETURN 

3050 P0KE7944 , 1 27 = P0KE3S664 , 4 

3060 FORK= 1 TO50 = G0SUB3 1 = NEXT 

3070 P0KE38664.1 

3080 W«7921 :W1-38641 

111 mmmn> aZTHENW*W-23 : Wl«Wl-23 

3100 POKEW+2. 127 

3200 P0KEW1+Z.4 

32 1 FORK« 1 TOZ : GOSUB360 : NEXT 

3220 POKEW 1+2.1 

3300 FORK«1TO10:NEXT 

3310 NEXT2 

3330 I FLEFT* < . n <> " S " THEN4000 

3350 F0RZaB+4T0B+8 

3360 WaW+23:Wl«Wl+23 

3370 P0KEW+Z.127 

3380 P0KEW1+Z,4 

3390 FORK-1TO20+Z 

3400 NEXT 

3410 POKEWl+2.1 

3420 NEXTZ 

3430 POKE36878.0 

IliS PSS l^i?TO20 : P0KE36879 I NT CI 6#RND < 1 > +2+RND C 1 ) Hi8 > : GO8Ufi320 • NEXT 
4010 PRINT"!«l!JOH NO. VOU'VE" 
4020 PRINT"W"R* 
4022 POKE36877.250 

4025 FORT« 1 TO 1 00 : P0KE36878 . RND < 1 > * I S+ 1 

4030 NEXT 

4035 POKE36878.0 

4040 GOTO4040 

5000 FORKa 1 TO20 : P0KE36879 . 1 NT < 1 6*RND < 1 > +2+RND < 1 ) #8 ) : NEXT 

5010 P0KE36879.25 

5015 FORTalTO50:NEXT 

5020 PRINT"W»i'OU''RE THE CHRMP!!" 

5030 GOTO5000 ^ 

6000 REMSTRRT WITH RROUND 34-40 

6010 REM TOO LITTLE flCCELERRTION RND VOU CRRSH 

6020 REM TOO MUCH RND VOU FLIP UPSIDE DOWN 
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Traffic Jam 



There are two versions of this program. The first uses the keyboard to control your car ("A" 
= up, "Z" = down, "," = left and "." = right) while the second uses a joystick. 

The aim of the game is to drive your car (a red asterisk) from the top lefthand corner of the 
screen to the carpark (the red oval in the bottom righthand corner). You will be asked first to pick 
a skill level from one to nine. One is the hardest, and nine the easiest. A number of cars (colored 
diamonds) will appear on the screen, the number of cars being related to the difficulty level you 
choose. The carpark will flash off and on for a few seconds, and you'll appear in the top lefthand 
corner to make your journey. 

You can only score if you make it to the carpark without hitting any of the cars, more and 
more of which appear as the game progresses. Your score is related to the skill level you choose 
and the time it takes you to drive to the carpark. The keyboard version only allows movement 
up, down, left, and right, while the joystick version of the game also allows diagonal moves. 

10 REM TRAFFIC JAM 
15 REM KEVBOflRD VERSION 
20 H*« " 000000 " :HS«0 
30 PRINT"^" 
40 COSUE9540 

1000 GETfl$: IFR$=""THENfl$=B* 
1010 E«C:Q=S 

1020 I Ffl*= " . " THEHS«S+ 1 = C=C.+ 1 

1 030 I Ffl*« " .. " THENS=S- 1 = C^C- 1 

1 040 I FR*» " fl " THENS=S--22 = C«C-2£ 

1050 IFFl$="2"THENS«=S+22:C«C+22 

1070 WaPEEKCS) 

1075 IFW=81THEH2040 

1 080 I FW= 1 02THENC«E = S^Q 

1090 IFW=90THEH2000 

1200 POKEE.. 1:REM ERASE WITH WHITE 

1210 P0KEC.2:P0KES.35 

1220 EfsR* 

1 230 R= I HT RND < > *458 D +7704 : R2«R+30720 

1240 W=PEEK.<R> 

1250 IFW«102THEN1230 

1 260 P0KE36878 .15 = P0KE36875 . 1 40+ < R-7704 > /4 : P0KE36878 . : P0KE36875 , 
1270 POKER.. 90 :P0KER2.VAL<MID*<P*. INT<RNB<0>#6) + 1 , 1 > > 
1 280 FORO« 1 T02*G- 1 = NEXT 
1500 GOTO 1000 
2000 REM CRASH 

2010 PRINT":«8>irr'0U HAVE CRASHED" :M«0 

2020 PRIHT">![l9iiimME= "RIGHT*<TI*. 2) " SECONDS" 

^030 GOTO3000 

2040 PRINT"WKIiiirf'OU MADE IT!!":M=1 
2050 P0KE38881.1 
2060 POKE38860^1 
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2070 GOTO2020 

3000 TV=VRL<TI$> 

3003 S= I HT <. C50-T V ) * 1 00^G ) *M 

3005 IFS>HSTHEHHS=S 

3007 PR I HT " JIBWilS.CORE : " S 

3010 PRIHT"MI»iiHIGH SCORE ^"HS 

3020 FORT* 1 TO2000 : NEXT 

3030 GOTO30 

5000 PRINT-'WifDSlBBKILL LEVEL TO 

5010 GET Z$: IFZ$=""THEH5010 

5020 G=VfiL<Z$> 

5030 IFG<1ORG>9THEN5010 

5040 PRINT"n" 

5050 RETURN 

9540 S=7703 

9550 C=38423 

9560 P$=" 654320" 

9570 B*«"." 

9580 GOSUE5000 

9590 FORZ»7680TO7701 : POKEZ.. 102 : POKEZ+30720. VflL 

< M I -:; P* , I HT < RHD < > *6 > + 1 .. I'J ) : HEXT 

9600 F0RZ=8 1 64T08 1 85 : POKEZ .. 1 02 : POKEZ+30720 . VRL 

^^^^(P*. IHT<RHD<0;'*6> + 1. 1>> :HEXT 

9620 FORZ=7680TO8 1 64STEP22 ■ POKEZ . 1 02 ■• POKEZ+30720 . 

: POKEZ+21 .. 102 : POKEZ+30741 . = HE XT 

9670 F0RIJ=1T025-2*G 

9680 R= I HT < RHD C *458 > +7704 : R2aR+30720 

9685 P0KE36879 , 1 HT >: RHD < > * 1 27 > + 1 

9690 WsPEEKf.R!) 

9700 IFUK102THEH96S0 

97 1 P0KE36878 .-15: P0KE36875 .■ 1 40+ < R-7704 > /4 : P0KE36878 . = PnKE36S75 . 

9720 POKER.90:POKER2..Vf=lL<MID*<P*..IHT<RHD<0>*6>+l.lV^ 

9730 HEXT 

9733 P0KE36879..26 

9735 FORL=1TO50 

9736 POKES 162. 81 

9737 POKE38882.0 

9738 FORT«1TO10:HEXT 

9739 P0KE38882.5 

9740 HEXT 

9745 FORT=1TO1000:HEXT 

9750 T I *a" 000000" 

9780 P0KE38882.2 
9999 RETURN 

10 REM TRAFFIC JAM CJOVSTICK VERSION") 
15 DIMJS<:2.2> 
20 HS=0 

30 RESTORE : GOSUB9490 

510 POKEDD . 1 27 : S3=- O' PEEK ( PB > AND 128 > =0 > : POKEDD . 255 

5^-0 P^PEEKCPR) :Sl=-< (:PRHD8>=0> :S2=<<PRHD16>«0) :S0«<CPflHD4>=0> 
530 FR»- < < PRND32 > =0 > : XsS2+S3 = V=!=:R+S 1 ^ ^ • rnrw^ ^ u 

1010 E=!C:Q=S 
1 020 S«S+ JS < X+ 1 /!■+ 1 > 
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1025 CaC+JSf.X+l,V+l> 

1070 W=PEEK<S> 

1075 IFW«81THEH2040 

1 080 I FW« 1 02THEHC»'E : S=Q 

1090 IFl'4«90THEN2000 

1200 POKEE.l:REM ERASE WITH WHITE 

1210 P0KEC.2:P0KES.35 

1 230 R= I HT (. RHD < > *458 > +7704 = R2s=R+30720 

1240 W=PEEKCR> 

1250 IFWal02THEH1230 

1 260 P0KE36878 .-15: P0KE36875 . 1 40+ < R-7704 > /A ■ P0KE36878 . : P0KE36875 . 
1270 POKER. 90 : P0KER2. VflL<MID*<P*. INT<RHDC0>#6> + 1 .1 > > 
1 280 FORO« 1 T02*G- 1 : NEXT 
1500 GOTO510 
2000 REM CRfiSH 

2010 PRIHT"]B!I«|iirt'OU HAVE CRASHED" :ri=0 
2020 GdTO2070 

2040 PRINT"Ml!ii»ri'OU MADE IT!!":M=1 
2050 P0KE38881.1 
2060 POKE38860. 1 

2070 PRINT"W(iliimME: "RIGHT$<TI*.. 2> " SECONDS" 

2080 S= I NT < C 50- V AL < T I * ) > * 1 2345/G > *M 

2090 IFS>HSTHENHS=S 

2 1 00 PR I NT " WlWilSCORE = " S 

2105 PRINT"j«lWiHIGHSCORE: "HS 

2110 FORT- 1 TO3000 = NEXT 

2120 GOTO30 

5000 PRINT">!WWIWSKILL LEVEL a TO 9>?" 

5010 GET Z$: IFZ$=""THEN5010 

5020 G«VALCZ$> 

5030 IFG<1ORG>9THEN5010 

5040 PRINT":]" 

5050 RETURN 

9490 PRINT"^" 

9500 REMINITIALISE 

95 1 P0KE37 1 39 .. : DD=37 1 54 : P A«37 1 37 : PB«37 1 52 

9520 FOR2=0TO2 = FOR J«0TO2 = RE AD JS < J . 2 > = NEXTJ .. Z 

9530 DATA~23. -22. -21. .-1.0. 1.21.22.23 

9540 S«7703 

9550 C«38423 

9560 P*=" 654320" 

9580 GOSUD5000 

9590 FOR2*7680TO7701 = P0KE2. 102 •• POKEZ+30720. VAL 

<MID$<P*. INT<;RND(:0)*6> + 1. 1>> :NEXT 
9600 F0R2«8 1 64T08 1 85 = POKEZ . 1 02 : POKE2+30720 . VAL 

":MID*<P*. INTCRND<0)*6) + 1. 1>> :HEXT 
9620 FOR2«7680TO8 1 64iSTEP22 = POKEZ .102 = POKE2+30720 . - POKEZ+2 1 . 

1 02 ■• POK.EZ+3074 1 . : NE XT 
9670 F0RU=1T025-2*G 

9680 R* I NT f. RND <. > *458 +7704 : R2=R+30720 
9685 P0KE36879 . 1 NT <. RND < > # 1 27 > + 1 
9690 W=PEEK<R> 
9700 IFW=102THEN9680 

97 1 P0KE36878 . 1 5 • P0KE36875 . 1 40+ C R-7704 > /4 : P0KE36878 . = P0KE36875 . 
9720 POKER.90:POKER2.VAL<:riID*<P*. INT<RND(0)*6)+.l . 1) > 
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9730 NEXT 

9733 P0KE36879.26 

9735 FORL«1TO50 

9736 POKES 162. 81 

9737 POKE38882.0 

9738 FORT«1TO10:NEXT 

9739 P0KE388S2.5 

9740 NEXT 

9745 FORT= 1 TO 1 000 : NEXT 
9750 T I *«" 000000" 
9780 P0KE38882.2 
9999 RETURN 



Hangman 1 1 

Here's another version of Hangman. In this one, the computer picks the word for you to 
guess. Change the words in the DATA statements from line 370 to add your own vocabulary. 
The number of "lives" you have is related to the number of letters in the word to be guessed. 



10 REM HflNGMfiN-11 

20 F0RG«lT0RND<:i)*22+l 

30 REflDfl$ 

40 NEXT 

50 V«0 

60 N»LEN<n*> 

80 F0RG«1T0N 

90 bcg>=rsC':mid*<r*>g. i>) 

100 D<G)«BCG> 

110 NEXT: PR I NT "□WW" 

120 QaINT<N+N/2+.5>:PRINT"V0U HAVE" Q" CHANCES" 
13Q FORJ«lTOia:V*V+l 
140 GOSUB410 
150 IFHaNTHEN300 

190 PRIHT"raWWW"Q+l-J"CHnHCES LEFT" 
200 INPUTC* 
210 FsflSCtC*) 
220 F0RG«1T0N 

230 I FD < G > «FTHEND < G ) »0 = J« J- 1 
240 NEXT -NEXT 
250 GOSUB410 

260 PRINT:PRINT"ai80RRV. TIMERS UPll" 
280 GOTO330 

300 REmmim* 

310 PRINTTflB<:5V'MB»4^«-IL SffiniOaNnCBI " 

320 PRINT"Wt'OU got THE WORD IN"V-1 
330 PR I NT "WIT WAS 3ai"A# 
340 GOTO340 

370 DflTfl" TERROR" . "POSTURE" , "ELEPHANT" . "STATUS" * "BACHELOR" , "ANSWER" 
380 DRTA"TENOR" . "BANANA" .. "FIGURE" . " IDIOT" . "NARCOTIC" . "PATHETIC" 
390 DATA " W I Z ARD " . " W I CKED " . " W I ZENED " . " EV I L " 

400 DATA "PART I CLE" , "ATOM" . "ELECTRON" . "START" . "FAMISHED" . "EAGLE" 

410 H«0 

415 PRINT"WWW" 

417 F0RE«1T0N 

420 IFB<E)«D<E>THENPRINT"n»-" ; 

430 IFBCE>OD<E>THENPRINT"a";CHR*<B<E)>; :H«H+1 

440 next: PRINT ™™„ 
460 PRINT: I FHONTHENPR I NTH "CORRECT LETTERS" 

480 PRINT 
490 RETURN 
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Antihang 



This is Hangman in reverse. The computer tries to guess the word you have chosen. 

When you run the program, you'll be asked HOW LONG IS THE WORD YOU HAVE CHOSEN? 
Enter the number of letters in the word — if your word were APPLE, you'd enter 5 — and then 
press RETURN. The next thing you'll see on the screen is five inverse blue dashes, one for each 
letter in the word, as well as LIVES LEFT - 10. This is followed by I GUESS and the letter the 
computer has guessed. If the letter is one which is in the word, say A, then you enter 1 , to show 
it was the first letter in your chosen word. If the letter is not in your word, you enter 0. Assuming 
the computer guesses A as the first letter, you enter 1 and press RETURN. Immediately, the five 
inverse dashes are reprinted, but this time the first one has changed into an A. The words I 
GUESS A are still there, to cater for double letters. Because there are not two A's in APPLE, you 
enter and press RETURN. 



Here's how one game I played with the VIC progressed. I was thinking of the word START: 



T - 5 LIVES LEFT - 
T- 2 LIVES LEFT- 
T- OLIVES LEFT- 
E-0LIVES LEFT- 
A- 3 LIVES LEFT- 
A-0LIVES LEFT- 
O - LIVES LEFT - 
R-4 LIVES LEFT- 
R-0LIVES LEFT- 
S - 1 LIVES LEFT - 



10 


T 


10 


-T--T 


10 


-T--T 


9 


-T--T 


9 


-TA-T 


9 


-TA-T 


8 


-TA-T 


8 


-TART 


8 


-TART 


8 


START 



You'll find that, generally, the longer the word, the better the chance the VIC has of working it 
out. Antihang is based on a program written by Toni Baker. 



1 REMETflONR I SHDLFCMUG VPWB JKQM VZ 
20 L=10:Qa45 

30 pp.im"nmmirM long is the word vgu have chosehp" 

40 INPUTN:PRINT":i" 
50 mm<26>,CW>,0CH> 
110 F0RZ«1T026 

120 r<:z>«peek<:410i+z> 
130 ifz<n+1thengcz)*q 

140 NEXT 

150 Z=INT<RND<0>*3>+1 
160 B*aCHR*<flCZ)> 
170 F0RJ«ZT025 
180 FIU>«R<J+1> 
190 NEXT 
200 fl«0 

210 PRim":mmfMm;sB" i 
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220 F0RZ==1T0H 

230 PRIHTCHR$<G<Z>>; 

240 NEXT: PRINT 

280 PR I NT "rsm. IVES LEFT -"L 

290 PRINT"MMI GUESS "B* 

300 INPUTBl 

310 IFB1=0THEN350 

320 fll=l 

330 GCB1>«RSC<B*) 

340 GOTO200 

350 F=0 

360 F0R2«1T0N 

370 IFGCZ>«QTHENF=1 

380 NEXT 

390 I FF«0THEHPR I NT " )PX»itlS^I WIN!!'"- GOTO390 

400 IFflla0THENL«L~l 

410 Fll=0: IFL>0THEN150 

420 PRINT"Mf!l!»iiraiSrVOU WINI l " :GOTO420 
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Treacle Balls 



In this game of logic and deduction, you roll balls down a series of chutes numbered one to 
seven. There are three pools of treacle in the chutes. They may all be in the same chute, in three 
different chutes, or two in one and the third in a different chute. You have six seconds (guesses) 
to work out where the treacle lies. 

When a ball hits treacle, it either sinks (you'll be told THE BALL VANISHED), or it is deflected 
to the chute to the right or to the left of the one it is in. If there is a treacle in two adjoining 
chutes, they may both act on the ball before it reaches the end, confusing you to some extent. 

If you wish to guess where the balls are, you enter '8' instead of a chute number, and then 
enter your three guesses. You will be told how many you had to correct. If you think there are 
two pools in the same chute, you must enter the number twice in your guesses. If you fail to 
guess where the treacle lies within six seconds, you'll be told where it is, and the game ends. If 
you wish to make the game a little easier the first few times you play it, change the six in line 70 
to a higher number. 



10 REM TRERCLE BALLS 
20 REM POSITION TREACLE 
30 F0RA«1T03 
40 B<A)*:INT<RND<1)*7> + 1 
50 NEXT 

60 REM COUNT GUESSES 

70 F0RH=6T01 STEP-1 

80 PRINT"3»t'0U HAVE"H" SECONDS" 

83 PR I NT" CENTER BALL CHUTE NO. " 

86 PR I NT "OR 8 IF VOU THINK VOU" 

87 PR I NT "KNOW WHERE THE" 

88 PR I NT "TREACLE LIES" 
90 INPUTC: IFC*8THENS000 
95 GOSUB3000 

100 D»l 

110 IFB<D>=CTHEN1000 

120 IF D<3 THEN D«D+1 : GOTOl 10 

125 GOSUB4000 

130 PRINT"SrrHE BALL ROLLED" 
140 PR I NT "OUT OF"C 
150 FOR Z«1TO2000:NEXT 
160 NEXTH 

170 PRINT"]BIISORRV. TIME IS UP" 
180 PRINT">!WrHE TREACLE WAS IN" 
190 FOR A«1T03 
200 PRINT BCR) 
210 NEXT 
220 END 

1000 REM TREACLE! 
1010 IF RND<l»a.9 THEN 2000 
1020 IF Cal THEN C«2; GOTO 100 
1030 IF C«7 THEN C=6: GOTO 100 
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1040 F*INT<RHDa)*2>-l 
1060 C«C+F 
1075 GOTO 100 
2000 REM LOST 

2010 PRIHT-JSTTHE BALL VRNISHED" 
2020 GOTO 150 

3000 PR I NT " mm" TRB < 3+C > ; C 

3015 F0RZ«1T05 

3020 FOR V« 1 TO 1 0#Z = NEXT V 

3030 PRINT TflB<5X;"!a| I I I I I I I " 

3040 NEXT 

3050 RETURN 

4000 PR I NTTflB < 3+C > ; " a" .; C " WW" 

4030 RETURN 

5000 REM TRIAL GUESS 

5010 PRINT")9iOK. WHERE DO VOU" 

5020 PR I NT "THINK THE TREACLE" 

5030 PR I NT "POOLS ARE?" 

5040 INPUTQ<1>,G<2>.Q<3> 

5050 SR«0 

5055 FORV* 1 T03 • W < V J *B < V > : NEXT V 
5060 F0RN«1T03 
5070 F0RM«1T03 

5080 IFG!<M>»B<N>THENSRaSR+l :E<N)-0:Q<M>e0 
5090 NEXTM.N 

5105 F0RP=1T03 

5106 ECP>-W<P> 

5107 NEXT 

5110 IF SR>2THEN 5150 

5120 IF SR>0 THEN PRINT "VOU GOT "SR" RIGHT" 
5130 IF SR«0 THEN PR I NT "WRONG. WRONG. WRONG" 
5140 GOTO 150 

5150 PRINT":«VES. VOU GOT THEM" 
5160 PRINT" WITH" H" SECONDS TO GO" 
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Craps 



Craps is a relatively simple gambling game played with two dice. The simplicity of the game 
itself is somewhat offset by the complexity of the betting possibilities. To make it easier to 
learn, we've included two versions of the game: Minimalist Craps to show you the game of 
craps in action and SF Craps which enables you to bet following some casino-like rules. 

As you can see, the first listing is very short indeed. Enter and run it, and you'll then find it 
much easier to understand the description of the game. 

To play, you roll two dice and add up their pips. If you roll a seven or an eleven on the first roll 
(called a natural) you win, and that round is over. If you roll two, three, or twelve on the first roll 
(called craps), you lose. Rolling four, five, six, eight, nine, or ten on the first roll becomes your 
point. The aim of the game— assuming it has not ended with the first roll— is to roll your point 
again, before you throw a seven. When you're sure you understand these instructions, look 
again at the first Craps program in action to relate what you've read here to the program. 

Once you've understood Craps so far, you're ready to enter the deluxe version of the game, 
SF Craps. In this version, you're introduced to Craps betting. You can bet on the round overall 
for a win ("Pass") or on the round overall for a loss ("Don't Pass"). If the game lasts more than 
one roll of the dice, you can have a side bet on each subsequent roll, betting that a particular 
number, including seven if you like, will come up. You do not need to make the side bets if you 
prefer to keep the game fairly simple. 



10 REM MIHiriflLIST CROPS 
12 G=0:W=0:L=0 
15 G=G+1 

20 E$="VOiJ ROLLED": PR I NT" 11" 

27 PR I NT : PR I NT " W I HS " W . " LOSSES " L 

28 PRINT:PRINT"GRME NUMBER "G 
30 GOSUB200 

40 IFFI=7ORFI«11THEN240 

50 IFft=2ORfl=3ORFl«12THEN230 

55 P=fl 

60 print: PRINT" VOUR POINT IS"P 

70 GOSUE200 

80 IFfl=PTHEN230 

90 I.Ffl=7THEN240 

100 FORT»1TO1000:NEXT 

110 PRINT"^" :GOTO60 

200 Fl« I NT <. RND <. 1 > *6+RND <". 1 ) *6+ 1 > 

210 FORT=1TO2000:NEXT 

215 PRINT:PRINTB*Fl 

220 RETURN 

230 PRINT"VOU WIN" :W'=W+1 :GOTO250 
240 PRINT"VOU LOSe":L=L+l 
250 FORT=1TO1000:NEXT 
260 GOTO 15 



10 REM SF CRFIPS 

15 PRINT"^" :G0SUE 770 
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20 riO«20 
30 GOTO 115 

40 PRINT'-nWiJlFRESS RETURN TO ROLL" 

50 GET R*:IFR$«"" THEN50 

60 flsIHT<:RND<0)*6>+INT<RNIl<:0>*6)+2 

70 GOSUB 770 

80 PRINT-JtraiVOU ROLLED "fl 

82 FORT«1TO500:HEXT 

85 RETURN 

100 IF M0<1 THEN PRINT'-r^f-OU'RE ^BROKE ! " = GOSUB770 : GOTO 1 00 
110 FORTalTO5000:NEXT T 

115 PRINT"r3" : PRINT: PRINT" WOU START ROUND": PRINT TflB'CSJ ; "WITH IS»"MO 
120 PRINT"WLFICE VOUR BET" 

130 PRINT")!ra'P-'ia TO PLACE BET" : PRINT"ON PRSS LINE." 

140 PRINT")(W^D-'S FOR DON-'T PASS" 

150 GET B$:IF B*«"" THEN 150 

155 IF B$0"P" RND B*0"D" THEN 150 

160 B«0 

170 INPUT""I!E;IZE OF BET";E 

180 IF B>MO OR B<1 THEN GOTO 170 

190 GOSUB 40 

200 IF R07 RND ROU THEN GOTO 310 
210 REM NRTURRL 

220 PRINT"3«iPyOU ROLLED R NRTURRL" 
230 IF B*«"D" THEN 270 
235 PR I NT "ON PRSS BET" 

240 PRiNT")iiiiri'ou win *"B 

250 M0=M0+E 

260 GOSUB 770: GOTO 110 

270 PRINT "ON DON'T PRSS BET" 

280 PRINT "Hiiiri'OU LOSE $"B 

290 MO»MO-B 

300 GOTO 100 

310 IF R02 RND R03 RND R012 THEN 350 

320 GOSUB 770 : PR I NT: PR I NT "«SF BCRflPS ! " 

325 FOR T«1TO100:NEXT T 

330 IF B$«"P" THEN 280 

340 GOTO240 

350 PT«R 

355 IF riO<l THEN 100 

360 PRINT"WVOU NOW HRVE *"riO 

370 PRINT")!ifi'OUR POINT IS "PT 

380 PRINT")aaiNPUT NUMBER FOR" : PRINT" SIDE BET, OR PRESS" 

390 PRINT"JW:ETURN SFOR NON-BET" 

400 K*«"" :C»0 

410 INPUTK* 

420 IF K*«"" THEN 490 

430 c«vrl<:k$> 

440 if c<2 or 012 then 400 
450 input "how much";d 

470 GOSUB 710 

480 IF D>MO OR D<1 THEN 450 
490 GOSUB 60 
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497 IFR«'7THEN630 

500 IFf=l«PTTHENPRINT"Sfi'OU'VE MRDE VOUR POINT" : IFC*0THEN230 

520 IFC«0THEN355 

530 IF COfl THEN 580 

540 PRINT"flND VOU WIN fl SIDE" 

550 PRINT "BET OF *"WI 

560 MO-MO+WI 

565 IFf=l«PTTHEN230 

570 G0T0355 

580 PR I NT "VOU LOSE *"WI 

590 PR I NT "ON VOUR SIDE BET" 

600 MO«MO-WI 

605 IF MO<lTHEN 100 

607 IFR«PTTHEN230 

610 G0T0355 

630 PRINT"IVOU ROLLED 7..,." 

640 IFB«»"D"THENPRINT"ON DON'T PRSS BET":GOTO240 
660 PR I NT "ON PRSS BET":GOTO280 
710 REM ODDS/WIN 
720 14 1 "D 

730 IF fl«6 OR R«8 THEN WI-INT<<8*D/5>+.5) 
740 IF fl"5 OR Ra9 THEN WI»INT<<5#D/'2>+.5) 
750 IFRs4 OR R*9 THEN WI'*2#D 
760 RETURN 
770 REM SOUND 
780 POKE 36878^15 

790 FORT-10 TO 180 STEP RND<l>*10+.5 

800 POKE 36876. 255-T 

820 NEXT T 

830 POKE 36876 iO 

840 POKE 36878.0 

850 RETURN 



Caveman 



As the Mighty Caveman, you must survive in the labyrinth-like cave system for 25 minutes, 
battling monsters and finding treasure, while trying to avoid quicksand, and blundering into 
walls and blocked caves. You have five arrows, and each monster you kill gains you extra 
wealth. There are also magic caves, which move you randomly through the system. 

This program occupies all but 70 bytes of the memory on the standard VIC so there is no room 
for elaboration. To make sure as many features as possible could be squeezed in, PRINT state- 
ments are terse to the point of rudeness. 

You start in cave 55. You are shown a view of the system from above at the beginning of the 
program and from time to time while a game is underway. The key to the cave's contents is H = 
you (for human), $ = gold, Q = quicksand, a diamond shape = a magic cave, a grey square = a 
blocked cave, and a full stop = an empty cave. 

You can move up, down, right, or left one square at a time (which you do by entering N = 
north, S = south, E = east, or W = west). You can also choose to shoot into an adjoining cave, 
which you do by entering an F. Your cave computer will warn you when things are nearby 
(NEARBY IS . . . GOLD is one typical message), but being a Cromagnon VIC 20BC, it tends to 
malfunction so you only know of the contents of one of the surrounding caves, rather than what 
is in all of them. As well, it does not tell you which of the surrounding caves it is talking about. 

A cave is emptied after you leave it, so you cannot revisit a cave containing gold over and over 
again to enrich yourself. If a beastie gets you or if you fall into quicksand or run out of air, the 
game ends with a printout of the system. 

When you run the program, you'll see the words CAVE 55 at the top of the screen. If your 
Cromagnon VIC 20BC has any message for you, it will appear next, followed by a number which 
is the minutes of air you have left, and then a prompt questionmark. The computer is waiting for 
your direction input (N, S, E, or W) or a decision to fire an arrow (F). If you try to go where there 
is no path, a message BLOCKED CAVE will appear, and you'll have to enter a new direction. If 
you say you wish to fire an arrow when your five are used up, you'll be told you're out of arrows 
and be asked for a new instruction. Good hunting. Caveman. 

30 DIMfl< 100> : Hs0 : 13=0 : L«0 : G=»0 = FlR«S 

40 P0KE36878.15 

50 FORB«1TO100:H<B)=46 

60 I FB< 1 2ORB>90OR 1 0* I NT < B/ 1 > =BOR 1 0* I NT < B/ 1 > «B~ 1 THENfl < E > = 1 66 
100 NEXT 

1 1 FORE= 1 T05 : RESTORE : FORD= 1 T05 

115 Z«INT<RNDa>*76>+12: IFn'r.Z> = 166THEN115 

120 RERDC:fl<Z)«C 

130 next: NEXT 

140 DRTfll66.218.77.81..36 

150 F0RB=1T08 = RERDP<E> : NEXT = DflTR-l 1 . -10.. -9. -1 . 1 , 9. 10. 1 1 
230 E=55 
240 flCE>«72 

245 PRINT''ri«((»!I««''.; :GOSUB9040 
250 Q=INT'r.RNDa>*7> 
305 IFQ«0FlNDEO55THENGOSiJB9040 
310 PRINT"nW«(!:^FlVE"E 
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320 I FO0THEHPR I HT " •jSWi* " G " GOLD " 

330 GOSUE5000 

340 PRIHT"WBTai"25"-H 

350 IHPUTZ$:Ua0 

360 I F2*« " H " flHDfl < E- 1 © > = 1 660RZ*« " S " flNDfl < E+ 1 > « 1 660R2*« 

" E " RNDR C E+ 1 > « 1 66THEHIJ= 1 
362 I FZ$« " W " FINDR < E- 1 > « 1 660RU« 1 THENPR I NT " aiELOCKED CflVE " 

: FORT=1TO2000 : NEXT : GOTO350 
375 fl < E > =46 : 1 FZ$« " N " THENE«E-- 1 
380 IFZ*«"S"THENE»E+10 
390 IFZ$="E"THENE«E+1 
400 IFZ*«"W"THENE«E~1 
405 IFZ*«="F"THENGOSUB6000 
410 IFFI<E:j="-218THENGOSUB1000 
420 IFnCE>«77THENGOSUB2000 
430 IFfl<E>«81THENGOSUB3000 
440 I Ffl < E > =36ThlENGCiSIJB4000 
450 H«H+1 : IFH=25THENQ«9:GOTO9000 

460 FORT=RHD < 1 > *40+ 1 30TO 1 77STEPRND < 1 ) * 1 9+2 = P0KE36875 , T = FORW« 1 TOT = NEXT 
465 P0KE36876 . 200-T : NEXT : P0KE36875 . = P0KE36876 , 
470 GOTO250 

1000 PRINT"WW8WIRGIC! ! " 

1 020 FORU= 1 TO300 : P0KE36S79 ., RND U *24+8 : P0KE36S76 . 

RND< 1 >* 10+240 : NEXT : P0KE36879. 29 
1025 POKE36876..0:fl<E)«46 

1030 E=INT<RND<1>*76+12> = IFfl<E>al66THEN1030 
1040 RETURN 

2000 PRINT-SiflONSTER HERE" 
20 1 FORT= 1 TO 1 000 : NEXT 

2020 M=RNDf.n : IFt1<.2THENPRINT">JWIT RUNS FlWflV: RETURN 
2030 PRINT")flHlIT-'S SEEN VOU. . . " 
2040 FORT= 1 TO 1 000 : NEXT 

2050 I Fri> . 85THENPR I NT " WRNB FLEES " FORT= 1 T0999 = NEXT : RETURN 
2060 PR I NT " W«RND EATS VOU ! ! " : FORT= 1 TO990 : NEXT : Q«9 : GOTO9000 
3000 FORJ=lTO20:PRINTTRE-r.5*J); ":«WHORRORS. . . " 

3020 FORU=230TO280STEP10 ■ P0KE36879. RND< 1 >#24+8 : P0KE36876. 100+U/3 
3025 NEXT : P0KE36879 . 29 ■ NEXT 

3040 PR I NT " srawiifoaiiiiiQU i cksrnd i \ " 

3045 POKE36876..0 
3050 FORT= 1 TO 1 000 = NEXT 
3055 Q«9 
3060 GOTO9000 

4000 FORJ«lTO20:PRINTTRB'r.5*J); "JHqimJEflLTH! ! ! " = FORTslTO10*J : NEXT = NEXT 
4010 K=INT<RND<1>*100>+100 

4020 FORU« 1 TO 1 00 : P0KE36879 . RND <. 1 > *24+8 = P0KE36e76 . 

RND <. 1 * 1 00+ 1 00 : NEXT = P0KE36879 , 2 9 
4025 POKE36876..0 

4040 PRINT-'MMiilGOLD WORTH *"K" !!"= G«G+K = FORTalTO3000 : NEXT : RETURN 

5000 V= 1 

5005 L'sR'CE+P^V)) 

5006 IFLO46THENS020 

5007 IFV<8THENV«V+1 ;GOTO5006 
5010 IFL«46THENRETURN 

5020 PRINT"'l!WO!raNEflRBV IS..." 
5030 IFL«166THENPRINT"N0 PRTH" 
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5040 I FL«2 1 8THENPR I NT " MflG I C " 
5050 IFL»77THENPRINT"M0NSTER" 
5060 I FL=8 1 THEHF'R I NT " GU I CKSRND " 
5070 IFL=36THENPRINT"G0LD" 
5080 FORT* 1 TO3000 : NEXT ■• RETURN 

6000 RR«FIR~1 : IFflRw0THENPRINT"NO ARROWS" = RETURN 
6010 PRIWTRR"flRROWS" :SS=0 
6020 INPUT")!MTO";S* 

6030 I FS*« " N " RNBfl < E- 1 > -77THENSS« 1 = VT=E~ 1 
6040 IFS*="S"fiNDR<:E+10.)s77THENSS»l : VTaE+10 
6050 IFS*="E"RNDFI'r.E+l>=77THENSS«l : VT»E+1 
6060 I FSf = " N " RNDfl < E- 1 ) =77THENSSs 1 = VT=E- 1 
6070 I FSS=0THENPR I NT " NO LUCK " : G0T06 1 20 
6080 PRINT ";bEHIT" 

6090 F0RT« 1 T099S' : NEXT : I FRND <. 1 !) > . 3THEH6 1 1 

6 1 00 PR I NT " K I LLED " : fl < VT > «46 : G«G+ 1 NT < RND < 1 > * 100 ) : G0T06 1 20 

6110 PR I NT "WOUNDED" 

6 1 20 FORT= 1 TO3000 : NEXT = RETURN 

9000 IFQ=9THENGOTO9015 

9010 PRINT"NO BIR LEFT" 

9015 PRINT")JWIJ!ll!ISURVIVED"H"MINUTES FOUND $"G"OF GOLD" 

9040 R<E>=72 

9050 FORJ=1TO100 

9060 PRINTCHRf-r.fl<J>>.; • 

9070 I F 1 0* I NT < J/ 1 > = JTHENPR I NT 

9080 NEXT; IFQ«:9THENEND 

9090 RETURN 
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Tranquility Base 



Here is a short moon-landing simulation which, despite its simplicity, is good fun to play and 
will certainly give you a challenging task. 

You start off around 500 feet above the lunar surface, with a limited quantity of fuel. You 
control the descent of your craft by entering your choice of thrust by pressing the number keys. 
You have fairly tight limits within which to land safely. 

Running out of fuel before you reach the ground or hitting the ground at an unacceptable 
speed will cause you to crash. A minus velocity means you are failing toward the lunar surface. 
You may well start off climbing away from the moon, but its gravity will soon draw you down. 

Once you've mastered the program in its present form, you may wish to add a display, or 
modify the program in some other way. Giving yourself less starting fuel is a good way to make 
the program more difficult. F% is your fuel, V% your velocity, and H% your height. 
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REflDV. 



10 REM TRflNQUILLITV BASE 
20 F"/.«130+RNDa)#40 
30 VX»~6+RHD<:i>*20 
40 H"/.«500"-RNrKl>*10 
60 PRINT"n" 

70 PRINT">!DjI(!»»WFlJEL= "FX 

80 PR I HT " MWifitBv'ELOC I TV = " V?-; 

90 PR I NT " ■fmwnmmE i ght = " hk 

100 GET flX:FORJ=lTO800:HEXTJ 
110 F?i=FX-flK 
120 CX=Fl?i~2 
125 flJi«0 

130 H:''.«H"/.+vrx:+cK/4 

140 vr-'^vK+c:': 

1 45 I FF>;< 1 RHriH?i< 1 0THEN 1 60 

150 IF H:'i>10THEH 60 

160 IFVJO-9RHriVK<8THEN 210 

170 PRINT" SWCRflSHS "; 

180 FORT«1TO300:NEXT 

190 GOTO 170 

210 PRINT"ra3REflT a_flNDING. SCHIEF" 
220 PRINT:PRINT"FINPL RERDINGS RS VOU" 

225 PR I NT "TOUCHED DOWN ON THE" 

226 PRINT"LUNfl SURFACE:" 
230 PR I NT : PR I NT " FUEL = " FX 
240 PR I NT " VELOC I T V = " W'/. 

RERDV. 



Lodestar/3-D Maze 



You are searching within a maze for the precious lodestar. At each point in the maze, you'll be 
told which directions from your current position are open. The display takes the form: 

MOVE NUMBER 1 
NORTH: OPEN 
SOUTH: WALL 
EAST: OPEN 
WEST: WALL 

LODESTAR INDICATOR READS 1 200 
DIRECTION? 

NORTH SOUTH EAST WEST HELP 
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You enter the initial letter of the move you wish to make. H (for help) gets you a view of the 
maze from above, with your position shown as a blue asterisk. But although you can see where 
you are within the maze, the lodestar is not marked. 

You will be pleased to see how quickly you start really visualizing the maze in three dimen- 
sions, and how you will be moving confidently through it. The maze changes from game to 
game, and the lodestar can be in one of three positions within it. Your score at the end depends 
on how few moves it took you to find the lodestar. Asking for help costs you a penalty of 1 5 
moves! As you become familiar with the game, you'll learn how to make the best use of the 
feedback from the Lodestar Indicator. 

If you have extra memory, and you feel particularly ambitious, you could add a 3-D display to 
show the view ahead of you after each move. Lines 550 to 580 determine which of the three 
positions will be used for the lodestar in the game. 



10 REM LODESTflR/a-D MAZE 
20 OOSUB530 
30 GOSUB370 
40 M»M+1 

50 PR I NT " n" ; TAB < 5 > .: " MOVE NUMBER " M 

70 PRINT"MiNORTH' 

80 IFfl<D+l.E)*S THENPRINT"SIOPENB" 

90 IFR<D+1,E>«X THENPRINT"WnLL" 

100 PRINT"J!WS0UTH: "; 

110 IF fl<D-l.E)«S THENPRINT-aOPENB" 

120 IF fl<D-l.E>«X THEN PRINT"WflLL" 

130 PRINT-KiCflST: 

140 IFfl<D,E+l)«S THEN PRINT" filDPENB" 
1S0 IF fl<D.E+l>«X THEN PRINT "WALL" 
160 PRINT"»aWEST: 

170 IFA(D.E-n«8 THEN PRINT" SOPENl" 
180 IF fl<D/E-l)«X THEN PRINT"WFILL" 

1 90 PR I NT " ILODESTflR I ND I CflTOR " : PR I NT TAB ( 6 > ; " READS " 1 00# < ABS < Z-D > 
+ ABS (, V""E J +V""E 

210 PRINT")l«iiiHWDIRECTION?l" 

211 PRINT"WSHK)RTH SSHOUTH BEWST BWKST flHHELP" 
2 1 S GET A* : I F A$«« " " THEN2 1 5 

220 IFA$»"N"ANDA<D+1,E)«XTHEN 213 
230 I FA*- " 8 " AND A < D- 1 , E ) «XTHEN 215 
240 IFA*""E"ANDA<D.E+1>-XTHEN215 
250 I F A** U " ANDA < D . E- 1 ) •XTHEN2 1 5 
260 IF A*«"H" THEN GOSUB370 
270 IFA*-"H" THEN D»D+1 
280 IF A*«"8" THEN D-D-1 
290 IF A*«"E" THEN E»E+1 
300 IF A*«"W" THEN E»E-1 
310 IF Z«D AND V-E THEN 340 
330 t30T0 40 

340 PRINT"VOU FOUND IT IN" 

350 PRINTTAB<5)i"fl"M"l MOVES! ! I " :FORJ««1TO100:NEXTJ:GOTO340 

370 REM HELP 

400 PR I NT " ::3i»iiiigi»H0RTHa" = pr i nt 

410 F0RB»1ST01 STEP-"1:F0RC«1T015 
420 F0RC«1T015 
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430 IFfl<B.C>=X THEN PRIHT"n^".; 

435 IFB«D AND C«E THEN PRINT GOTO440 

436 IF fl<B.C>«S THEN PRINT"ffH"; 
440 next: print: NEXT 

470 PR I NT " miiilli^OUTHH" : PR I NT 
480 M=M+15 

490 FORJ«1TO2000:HEXTJ 

500 PRINT"^" :fl"r.D..E>«S 

520 RETURN 

530 DIMRaS. 15> 

550 B=INT<RNDa>*3> + l 

560 Z«14:V»14 

570 IF B=2 THEN V=2 

580 IFB=3 THEN Z»2 

590 X=l :S=2 

610 F0RB«1T015:F0RC»1T015 

630 FKB.OsX: IF RNDCl ». 9THENFKE. C>=S 

640 IF C<20RC>140RB<20RB>14 THENfl<B.C>*X 

650 NEXT: NEXT 

670 D«2:E=2 

690 F0RF=1T068 

700 REflDB:REFlDC 

710 fl<:E.C)«S 

720 NEXT 

730 M«-15:P0KE36879.25 
740 RETURN 

750 DPTR 2.2.2.3.2.4..2.5.2.6.2.7 
760 DflTFl3.7.4.7.5.7.5,6.5..5.5.4..5,3.6.3 
770 DFITR7.3.7.4.7.5.7.6.7.7.7.8.7.9.9..8 
780 DflTFl9..9. 10.8. 10,7. 10..6. 10.5. 10.4.8.8 
790 DfiTfll0.3. 11.3. 12.3. 13.3. 14.3. 14.2.7. 10 
800 DflTfl6. 10.5. 10.4. 10.3.10.2. 10.2. 11.2. 12 
810 DflTfl2. 13.2. 14.6. 11.6. 12.6. 13.6. 14.7. 12 
820 DflTfll4. 12.8. 12.8. 14.9. 12.9. 13.9. 14. 10. 12 
830 DRTflll.9. 11. 10. 11. 11. 11. 12. 12.9. 13.9. 13. 10 
840 DRTR13. 11. 13. 12. 13. 13. 13. 14. 14. 14 
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VINCENT VAN VIC 



You control a red diamond using "A" (up), "Z" (down), "," (left) and "." (right) to draw out a 
picture on the screen. You can stop the moving diamond at any time by pressing any key except 
the four indicated. You choose the color you wish the computer to use by pressing the relevant 
color key. Pressing a color change key will automatically stop the diamond moving, so it is 
"drawing" in the new color when it is started again. 

The computer starts drawing in white, so it is invisible on the white background. You can 
therefore move the red "cursor" diamond to wherever you like before you start drawing. You 
can also move it anywhere on the screen during the course of a drawing, without leaving a line. 
Drawing in white can also be used to erase unwanted parts of the drawing. 



10 REM VINCENT VRN VIC 

20 REM MOVE RED DIAMOND WITH THE fl Z . . KEVS 

30 REM TO CHANGE COLOR PRESS THE NUMBER OF THE COLOUR VOU WANT 

40 REM TO STOP CURSOR MOVING HIT ANV KEV EXCEPT FOR CONTROL ONES 

50 PRINT"n" :GOSUB9540 

1 000 GETA$ : I FA$=s " " THENA««B* 

1 005 I F A*> " " AND A*< " 9 " THENUa V AL < A$ ) - 1 

1010 EaC:T«S 

1020 IFA*«". "THENS=«S+1 :C=«C+1 
1 030 I F A$« " , " THENS=S- 1 = C=«C- 1 
1040 I F A*s " A " THENS=S-22 : C=C-22 
1 050 I F A$= " 2 " THENS«S+22 : C=C+22 
1 060 I FPEEK < S > = 1 02THENC=E : S«T 
1070 B$=A* 

1080 FORQ»1TO600:HEXT 

1200 POKEE.U 

1210 POKEC.2:POKES.90 

1230 GOTO 1000 

9540 S*»7954 

9550 C«38674 

9560 B*«"" 

9590 FORZ-7680TO7701 = P0KE2. 102 : POKEZ+30720.. : NEXT 
9600 F0RZ«8164T08185 •■ P0KE2. 102 : POKE2+30720.. ■ NEXT 
9620 FORZ«7680TO8 1 64STEP22 : POKEZ .102 = POKEZ+30720 . 

: POKEZ+21 .. 102 : POKEZ+30741 . = NEXT 
9630 Ual 
9640 RETURN 
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Monza 



Monza is a mind-reading matfiematical wizard. You first thinl< of a number between 1 and 63. 
Monza displays a series of numbers on the screen, and you press 'Y' if your number is among 
tliose displayed and 'N' if it is not. After several screens of numbers have been shown, with 
suitably magical sounds, Monza will tell you the number you thought of. This makes a good 
demonstration program to show the VIC off to your friends. 



83 PRI 
90 PRIH 
95 RBI 



10 REM MONZFI. MflTHEMFlTICflL WIZARD 

15 B*«"ir«a" 

20 X«.5:N«0 

30 P0KE36879.25 

40 PRINT"::Ml!rTHINK OF fl NUMBER" 

45 PR I NT "BETWEEN 1 RND 63." 

50 PRINT")!WI WILL SHOW VOU FIVE" 

55 PRINT"SCREENFULL8 OF" 

60 PRINT "NUMBERS. IF VOUR" 

65 PR I NT "NUMBER IS ON THE" 

70 PR I NT "SCREEN. PRESS •'V^ TO" 

80 PRINT"TELL ME. IF IT IS NOT" 

■ TflB<8>; "PRESS 'N'." 
•"MI WILL TELL VOU VOUR" 

•"NUMBER AT THE END" 

100 PRINT"BigDII(!0»iiiFRESS RNV KEV. . . " 

110 GET fi*:IF fl*="" THEN 110 

115 PRINT"nSW" 

120 PRINT"ai 3 5 7 9 11 13 15 17" 

121 Pf^INT"W19 21 23 25 27 29 31" 

122 PRIHT")P33 35 37 39 41 43 45" 

123 PRINT"3047 49 51 53 55 57 59" 

124 PRINT TnB<:8>;")!»Sl 63" 
130 PRINT 

140 OOSUB 390 

150 PRIHT"nMS" 

151 PRINT"2 3 6 7 10 11 14 15" 

152 print: PRINT" 18 19 22 23 26 27 30" 

153 PRINT :PRINT"31 34 35 38 39 42 43" 

154 PRINT :PRINT"46 47 50 51 54 55 58" 

155 PRINTTflBCS); "»B9 62 63" 
160 PRINT 

170 GOSUB 390 

180 PRIHT"^«S1" 

181 PRINT"4 5 6 7 12 13 14 15" 

182 PRINT"W20 21 22 23 28 29 30" 
1S3 PRINT"W31 36 37 38 39 44 45" 

184 PRINT"J!J46 47 52 53 54 55 60" 

185 PRINTTflB<e>;"»61 62 63" 
190 GOSUB 390 

200 PR I NT "^J" 
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201 PRIHT"8 9 10 11 12 13 14 15" 

202 PRIHT"M24 25 26 27 28 29 30" 

203 PRINT"»31 40 41 42 43 44 45" 

204 PRINT" me 47 56 57 58 59 60" 

205 PRINTTflBCeiJj "MSI 62 63" 
210 GOSUB 390 

220 PRINT"nKWI" 

221 PRINT" 16 17 18 19 20 21 22" 

222 PRINT"!«23 24 25 26 27 28 29" 

223 PRINT"W30 31 48 49 50 51 52" 

224 PRINT"M53 54 55 56 57 58 59" 

225 PRIHTTflB<8>; ")!e0 61 62 63" 
230 GOSUB 390 

240 PRINT"n«R" ' 

241 PR I NT "32 33 34 35 36 37 38" 

242 PRIHT"W39 40 41 42 43 44 45" 

243 PRIHT"3«46 47 48 49 50 51 52" 

244 PRIHT":iSB3 54 55 56 57 58 59" 

245 PRINTTflB<e);"»60 61 62 63" 
250 GOSUB 390 

260 POKE 36878.15 
270 FOR T»1T0255 
280 POKE 36876. T 
290 POKE 36876. 255-T^2 
300 NEXT 

310 POKE 36878.0 
320 POKE 36876.0 
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330 PRINT'-WiVOUR m-VMER aWflSrai"N 
340 FORT« 1 TO4000 •• NEXT = RUN 
390 X«X+X 

395 Cf '=riID*<:B$.. <. INT<RND< 1 >*3>+l ) . 1 > 

400 P0KE36878.15 

410 FOR T«100 TO 255 

420 POKE 36876. T-N*3 

430 NEXT T 

440 POKE 36878. 

450 POKE 36876.0 

455 PRINT 

460 PRINT C$"IF VOUR NUMBER IS" 
470 PR I NT "HERE PRESS 'V". IF" 
480 PRINT "NOT. PRESS 'N"." 
490 GET R$ 

500 IF m-"" THEN 490 
510 IF fl*0"N" THEN N«N+X 
520 FOR T«l TO 500 
530 NEXT T 
540 RETURN 



Mento 



Mento is another mathematical mind-reading wizard. Just get your friends to follow the 
structions to be amazed, pressing any key after you have followed the wizard's wise words. 



10 REM MENTO 

15 POKE 36879. 8 -.PRINT" 81" 
20 OOSUB1O20 

30 PR I NT "MULT I PL V VOUR FlOE BV" 
40 PR I NT "TWO. THEN ADD FIVE" 
50 GOSUB1000 

60 PR I NT "HOW MULTIPLY THAT" 
70 PRINT"BV FIFTV. AND" 

89 PRINT"SUBTRRCT 365" 

90 OOSUB1000 

100 PR I NT "NOW PIDD THE AMOUNT" 
110 PR I NT "OF CHANGE IN VOUR" 
120 PR I NT "POCKET" 
130 GOSUB1000 

140 PRINT"NOW GIVE ME THE" 
150 PR I NT "NUMBER VOU'VE ENDED" 
160 PRINT"UP WITH" 
170 INPUTA:A»R+115 
180 BK«A/10e 
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190 fl»FI-B?i*100 

200 PRIHT"VOU HRVE "fl" CHANGE. " 
210 PRINT 

220 PRINT"VOU flRE"B>i"VEflRS OLD" 
230 END 
1000 GETR* 

1010 I Ffl«« " " THENGOTO 1 000 
1020 PRINT":i" 
1030 PRINT"-JiWW" 
1040 RETURN 

REflDV. 



Flip 



Flip is an intriguing game, which provides quite a bit of mental stimulation. On a three-by- 
three grid are randomly placed solid (filled in) and empty circles. By flipping them (see the fol- 
lowing for an explanation of the flip), you have to end up with a single empty circle in the middle 
position and solid circles in the other eight positions. 

You can only flip a solid circle. You move by entering the number of the piece you wish to flip. 
Flipping a corner piece causes those adjoining it to change to their opposites (that is, a solid cir- 
cle opens up, an open circle solidifies). Flipping middle circle on one side changes the two on 
either side of it, and flipping the middle one changes the middle piece on all four sides. The piece 
you flip also changes. 

The number of moves you have taken so far is displayed. At the end of the game, the program 
will pause to tell you how many moves it took to solve it, and then you'll be given a new starting 
position. 

5 REM FLIP 

10 M«0:C!«209:X«215 

20 F0RC-1T09 

30 B«INT<RND<l>+.5> 

35 R<C>«Q: IFB»0THENfl<C>»X 

40 NEXTC 

50 OOSUB180 

60 N»«0 

70 F0RC*1T09 

80 IFfl<C>«MTHENN-N+l 

90 NEXTC 

100 IFN«lRNDfl<5>*XTHENGOTO270 
110 M-M+l 

115 PRINT"nti0VE NO. "M: print: PRINT 
120 PRINT-SWHICH ONE TO CHRNGE" 
1 25 QETR* : I Ffl** " " THEN 1 25 
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12S N=VflL<fl$> : IFN<10RN>9THEN12S 

130 GOSIJB310 

140 GOTO50 

170 END 

180 PRIHT"n" 

190 PR I NT: PR I NT: PR I NT 

200 PRINT'Ta"!" "2" "3" "CHR$<fl<l>>" "CHR*<R<2))" "CHR*<f=l<3>> 
210 PRINT 

220 PRINT"li"4" "S" "6" "CHR*<Fl<4> ) " "CHR*<R<S>V' "CHR*<R<6?> 
230 PR I NT 

240 PRINT"SI"7" "8" "9" "CHR*<fl<7>V' "CHR$<fl<8>)" "CHR«<fl<:9>> 
250 PRINT 
260 RETURN 

270 PR I NT "SOLVED IN"M 
280 FORT-1TO5000 
290 NEXT 
300 RUN 

310 IFR<N>»XTHENRETURN 

320 IFN«1THENFC1>«2:F<:2>=4:F<3>«S:F<4>«10 
330 IFN«2THENF<l)*r-F<2>w3:F<3> = 10:F<4>=»10 
340 I FNaSTHENF U > »2 : F C 2 > «5 = F ^ 3 > =iS : F < 4 > = 1 Q 
350 IFN»4THENF':i>*l :F<2>»7:F";3)»10:F<4)«10 
360 IFNs5THENF< 1 )«2 = F<:2>»4 : FCSJaQ : F<4)«6 
370 IFNa-eTHENF-r. 1 : F<:2>«9 : F'r.3>«10 : F<4>«10 
380 IFN=7THENF< 1 )a4 = F<2>«5 : F<3>«8 •■ F<4>«10 
390 IFN»8THENFa 5*7 = F<2>«9 : F<3>«10 = F<4>»10 
400 IFH=9THENF<1>=8:F<2>«5:F<3>«6:F<4)«10 
410 P0KE36878.15 
420 F0RG-1T04 
425 P0KE36879 , 24+RND U > *8 
427 P0KE36875 . 1 30+RND < O * 1 00 
430 IFR<F<:G>>«XTHENR';F<G>)»Q:GOTO450 
440 IFfl<F<G)>QTHENR<:F<:G>?«X 
450 NEXTG 

455 P0KE36875 , : P0KE36878 . 
460 R<N>»X 
470 RETURN 



Colormind 



This, as you've probably guessed, is a color version of Mastermind . You have to guess the 
computer's pattern of four differently colored blobs. You indicate your choice of colors by press- 
ing the color keys on the VIC. 

The colors will first print up as the numbers you pressed, then change into blobs colored to 
your choice. Following the blobs will be your score, the first number being the correct color in 
the correct position, the second the correct color in the wrong position. You'll get ten tries to 
guess the numbers. Note that no color is repeated within the set of blobs. 
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If you're used to playing Mastermind with colored pegs, you'll quickly appreciate that this is 
much closer to the Invicta game than are computer versions that use numbers. At the end of the 
game, press any key to get a new game, or 'S' to stop. 



10 REM COLOURMIND 

15 PRIHT"^" : print: PRINT 

20 GOSUB4S0 

30 C<l>«INT<RND<i:>*6>+3 
35 Z*2 

40 C<Z>aINT<RNDa>*6)+3 
50 J=l 

60 IFC<J>=C<:Z>THEH35 

70 I F J<Z- 1 THEN J* J+ 1 : COTO60 

80 IFZ<4THENZ»Z+1 ;GOTO40 

100 FORH=1TO10: INPIJT[=1 

130 F0RZ«1T04 

140 G<Z)=fl-10*INT<n/10) 

150 FI«IHT<:fl/'10) 

160 NEXT 

165 GOSUB510 

170 B«0:W»0 

190 F0RZ«1T04 

200 IFC<Z)OG<:Z>THEN230 

210 G<Z>»0 

220 B»B+1 

230 NEXT 

240 F0RZ*1T04 

250 IFG<Z>«0THEN300 

260 F0RJ-1T04 

270 IFC<Z>OQ<J>THEN290 

280 W«W+1 

290 NEXT 

300 NEXT 

320 PRINT" - ■"B" WW 
370 IFBo4THEN1000 
380 NEXTH 
390 GOTO 10 10 
440 END 

450 Flf»" rMilBn" 
460 F0RB«3T0e 

470 PRINTMID*<:R*.B,l>;BJ"t "i 
475 IFB-5THENPRINT 
480 NEXT 

490 PR I NT "S": PR I NT 

500 RETURN 

510 PRINT"n"; 

515 F0RZ«4T01STEP-1 

520 PRINTriID$.<n*.GCZ>.l>J"i ".! 

530 NEXT 

550 RETURN 

1000 PRINT-'WOU GUESSED IT!" 
1010 PRWT'mHE CODE WflS:" 
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1015 PRIHT"W";TflB<5); 

1020 F0RZ*4T01STEP-1 

1030 PRIHTMIDf'JRf.C'IZ). l>;"i "; 

1040 NEXT 

1 050 OETFI* : I Fn*» " " THEN 1 050 
1060 IFfl*«"S"THENEND 
1070 RUN 



Cannibal Charlie 



You get to play God in Cannibal Charlie. You specify how many cannibals there will be at the 
start of creation, and how many explorers. Your aim is to create a society that survives as long 
as possible. Too few explorers, and the society will die within a month or so. Too many ex- 
plorers, and they'll overwhelm the cannibals, again bringing things to halt within the first month. 
The program gives you a population reading at the end of each month. There is a "highest 
score" (i.e., longest survival of a particular society) feature, so you can try to out-God yourself. 
If you don't like the scenario, you can change it to foxes and rabbits, or any predator/prey com- 
bination you prefer. 

The variable FD (food, set in line 100) determines how many cannibals can feast on a single 
explorer. Although this does not change within a single series of games, it will be different each 
time you run the program from the beginning. 



10 REM CRNNIBflL CHARLIE 

20 PRINT-OWKWELCOME TO CflNNIBflL WiWiCHRRUIE" 
30 PRINT")!BIN THIS GAME VOU ARE aQODH. AND IT IS VOUR JOB TO 
SET UP THE" 

40 PR I NT "RULES FOR CANNIBALS AND EXPLORERS IN SUCH A WAV THAT 
THE SOCIETY"; 

50 PR I NT "LASTS FOR THE LONGEST POSSIBLE TIME. WWPRESS 

ANV KEV WHEN" 
60 PR I NT "VOU 'RE READV TO PLAV" 
70 GETA*: IFA$«""THEN70 
80 HI«0 
100 FD«RND<0> 

110 PRINT"^WI»SFINE. GOD. NOW HOW MRNV CANNIBALS WILL WE"; 

120 PRINT"START WITH <<100>?" 

1 25 I NPUTCP : I FCP>99THEN 1 25 

170 PR I NT " ::IC ANN I B ALS ■ " 

180 PRINT"iaPOPULATION : "CP 

190 CP«CP/3 

210 PR I NT "SHOW. THEni EXPLORERS : JPS" 
220 INPUT "POPULATION <<100)";EP 
225 IFEP>99THEN220 
230 EP*EP/3 

250 PRINT"!8W»)SWPLEASE STAND BV" 
260 GOSUB 1 000 : PR I NT " H" 
270 DA«0 ■• CSaCS/2 : ESaES^2 
280 DA-DA+1 
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290 PR I NT " nmWMOHTH " ER : I FDR« 1 THEH300 

300 IFCP>EP/FDTHEHCP=«EFV"FD 

3 1 CP=CP+ C <. 8*CP~CP*EP/3 > *FD > 

320 EP«EP+<<4*EP-EP*CP>*.01> 

330 PR I NT " " I WT < CP > " CFlNN I BflLS " 

340 PR I NT " -fima" I NT < EP V EXPLORERS " 

350 IFEP<2ORCP<2THEN390 

360 GOSUB1000 

370 GOTO2e0 

390 IFDR>HS THEN HS«DR 

395 IFCP<10REP<1THENPRINT"::3" 

400 PRINT")!WEND OF THE LINE.. GOD" 

410 PRINT")!MTHE SOCIETV SURVIVED FOR "Dfl" MONTHS" 

420 PRINT"jffllBEST SO FRR IS"HS 

430 PRINT"MiINPUT FOR R NEW CRERTION. RNV OTHER KEY TO STOP" 
440 GETfl*: IFR*«""THEN440 
450 IFfl*«"V"THEN110 

460 PR I NT" KB VE BVE. VOUR RLMIGHTVNESS" 
470 END 

1 000 FORV= 1 TO4000 : NEXT 
1010 RETURN 



Monte Carlo Molecule 

The general term "Monte Carlo Simulations" is given to those simulations that show the 
result of chance factors. Brownian motion and atomic diffusion are examples of random motion 
that can be emulated with a Monte Carlo simulation. In Monte Carlo Molecule, a molecule, start- 
ing at any position you designate on a ten-by-ten grid (we suggest you try 5,5 as your first one), 
works it way randomly around a small box until it happens to find its way to the bottom right- 
hand corner (coordinates 1 0, 1 0) counting the number of moves it took to get there. 



10 REM MONTECRRLO MOLECULE 

20 PRINT"n":DIMfla0.10):M«0 

25 OOSUB1500:REM START 

30 GOSUB500:REM PRINT 

35 IFP«=10flNDQ«10THEN35 

40 GOSUB1000:REM FIND R DIRECTION 

60 GOTO30 

500 REM PRINT 

505 R<P.Q>a209:M«M+l 

510 PRINT-SOaSDSWOVE NO. "M 

515 PRINT"MW" 

520 FORX='1TO10 

530 FORV=1TO10 

540 PRINTCHR*<fl<X.V?>; 

550 next: print: NEXT 
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GRN \ 






















TO/ 

/a 









560 RETURN 
1000 REM DIRECTION 
1010 R<:P..I3>«214 
1015 0=0 

1020 T«INT<RND-:0>*8> 
1 030 I FT'=0THENOOSUB 1 1 00 
1 035 I FT-4THENG0SUB 1 1 20 
1040 IFT«1THENGOSUB1200 
1 045 I FTaSTHEHOOSUB 1 1 39 
1 050 I FTa2THENG0SUB 1110 
1055 I FT«6THENG0SUB 1 1 40 
1060 IFT«3THENGOSUB1210 
1 065 I FT«7THENG0SUB 1 1 50 
1070 IFG-0THEN1020 
1080 RETURN 

1100 IFP>1THENP«P~1:0«1 
1105 RETURN 

1110 I FP< 1 0THENP«P+ 1 : G« 1 
1115 RETURN 

1 1 20 I FP> 1 fiNDQ> 1 THENP«P- 1 •■ Q^Q- 1 : G« 1 
1 1 25 RETURN 

1 1 30 I FP< 1 0FlNDQ< 1 0THENP-P+ 1 = Q«Q+ 1 : G« 1 
1135 RETURN 

1 1 40 I FP< 1 0nNDQ> 1 THENP-P+ 1 Q-Q- 1 : G« 1 
1145 RETURN 
1150 RETURN 

1 200 I FQ> 1 THENQ«Q- 1 = D« 1 
1205 RETURN 

1210 IFQ<10THENQ«Q+1:G»1 

1215 RETURN 

1500 REM START 

1510 FORX«1TO10 

1520 FORV-1TO10 

1530 fl<X.V)-214 

1540 NEXT: NEXT 

1550 PRINT''nWMSBW:0-ORDINflTES OF" 

1560 INPUT "START POSITION" ; P. Q 

1 570 I FP< 1 ORP> 1 0ORGK 1 ORQ> 1 ©THEN 1 550 

1580 fl<P.Q>»209 

1590 PR I NT "11" 

1600 RETURN 
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Noughts and Crosses 



You are the red filled-in circles, the computer the inverse blue crosses. You just touch the 
number where you want to place a piece, and the VIC will do the rest. The computer will ignore 
any opening move that is not the center square (5). This program is based on one written by 
Stuart Roberts. 



10 REM NOUGHTS AND CROSSES 
12 REM 

15 REM AFTER PROGRFlM BV STUART ROBERTS 

16 REM 

20 FOR Aa 1 T09 : B < A ) « A : NEXT 
30 PRINT'TB" 
50 E»0:G=0 
60 N«0 
70 X=4 

80 PRINT"H«iP" 
90 F0RA»flT09 

1 00 I FA»«XTHENX«X+3 = PR I NT : PR I NT 
110 IFB';A>«0THEN320 
120 IFB<A>»10THEN350 
130 PRINTB-JA);" 
140 NEXT 

145 IFB<3>'=10ANDB<6>-10ANDB<9>«10THENE»8 : OOTO160 

146 IFB<7>«10RNDB<8>*10ANDB<9)«10THENE=8 : GOTO1S0 
150 IFN-1THEN380 

160 IFEsSTHENPRINTiPRINT-PRINT" I WIN":GOTO730 

170 IFQ«5THENPRINT:PRINT:PRINT" IT'S A DRAW" : GOTO730 

180 pRiNT-'xiniinuirvouR move?" 

18S GETA* : I FA*- " " THEN 1 85 
187 Z«VAL<A*> 
190 IFB<Z>OZTHEN185 
200 QieQ-fl 

210 IFZ«11THENB<5)«10:GOTO60 
220 N-1:B<Z>*'0 
230 GOTO70 
240 FORA-CTOD 
250 IFB<A>*ATHENB<:A)»10 
260 A-A+F 
270 NEXT 
280 GOTO60 
290 IFBC5>«5THEN20 
300 B<D>«10 
310 GOTO60 
320 PR I NT "m • S".: 
330 P<A>=1 
340 GOTO 140 
350 PR I NT "S SfiS nSM 
360 P<A)=4 
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370 GOTO 140 
380 G«0 

390 C=i:D»Si:F»3 

400 GOSIJB580 

410 Ca3'D»7:F»«l 

420 GOSUB590 

430 D«9 '• F«2 

440 GOSUB580 

450 C«2:Da'8 

460 GOSUB580 

470 C'«1:D«7 

480 GOSUBS80 

490 D«3:F«0 

500 GOSUB580 

510 C«4:D=6 

520 GOSUB580 

530 C«7:D«9 

540 GOSIJB580 

550 G=G+1 

560 IFG-5THEH60 

570 GOTO390 

580 E"s0 

590 FORfl«CTOD 

600 E«E+Pf.fl) :n«fl+F 

610 NEXTfi 

620 IFE«3THEN720 

630 IFG«0THENRETURN 

640 IFE-3THEN240 

650 IFG«1THENRETURN 

660 IFE-2THEN240 

670 IFGa2THENRETURN 

680 IFE*5THEN240 

690 IFG«3THENRETURN 

700 IFE»1ORE«4THEN290 

710 RETURN 

720 print: PRINT: PRINT" yOU WIN" 

730 FORT«1TO3000:NEXT 
740 RUN 



Sepulcher Organ 

Sounding like a mournful clioir in full cry in a haunted house, this program lets you play the 
bottom row of keys of the VIC as though it is an organ. The notes corresponding to the keys are: 

C(Z), D(X), E(C), F(V), G(B), A (N), B (M), C (,) 

The note you've pressed will continue until you press another key. Touching any other key from 
those marked will stop the sound. RUN STOP will, of course, stop the program. 
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Here is TWINKLE, TWINKLE LITTLE STAR: 



ZZ BB NN B 
VV CC XX Z 
BB VV CC X 
BB VV CC X 

ZZ BB NN B VV CC XX Z 

10 REM SEPULCHER ORGRN 

12 PRINT":]" 

15 DIMB<16).C*<16) 

20 F0RR»1T016 

30 RERDB<fl> :RERDC*<:fl> 

40 NEXTfl 

50 DPITFI135. "Z" , 147. "X" , 159, "C" , 165, "V" . 175, "B" , 183, "N" , 191 , "M" , 
19S,"," 

55 DflTfl225, "Z" , 228, "K" , 231 , "C" , 232, "V" , 235, "B" , 237, "N" , 239, "M" , 
240,"," 

60 P0KE3687S,15 

70 CETfl* 

80 F0Rfl«lT08 

90 I Ffl*«C* < n ) THENP0KE36876 , B < fl > = P0KE36875 , B < fl > : P0KE36874 , B < fl > : 

P0KE36876,B<R+8) 
100 NEXTFI 

110 1 FFl$« " . " THENGOTO 1 50 

140 GOTO70 

150 POKE36876,0 

160 POKE36e75,0 

170 POKE36874,0 

190 GOTO70 



Speedway 

Drive your little car around the track under control of the joystick or keyboard ("A" = up, "Z" 
= down, "," = left, "." = right) at a choice of nine different skill levels. Your score is related 
both to the skill level and to the length of time you manage to keep your car going without hit- 
ting the boundaries of the track. 

There is a highest score feature, so you can compete against yourself in subsequent runs. 
Your current score is clocked up continuously in the top righthand corner of the screen. Once 
you're familiar with the game in its present form, change the racetrack (from line 8040) to one 
of your own design, or write a routine to produce a different racetrack each time you play the 
game. 

10 REM SPEEDWflV 

15 REM KEVBOflRD VERSION 

20 H8«0 

30 GOSUB8000 '• REM INITIALISE 
40 GOSUB520:REM MOVE CAR 
50 IFfl*0THENGOTO40 
60 GOTO700:REM SMRSH 
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100 REM NOISE 

110 P0KE36878. 1!5 

1 20 P0KE36875 , RHD < ) * 1 0+ 1 40 

130 FORT«1TO10*SK 

140 NEXT 

150 POKE36S78.0 

160 POKE36875.0 

170 RETURN 

520 REM MOVE CAR 

530 GOSUB100:REM NOISE 

540 I FPEEK < 7680+CR+22*CD ) « 1 02THENFI- 1 

560 POKE < 7680+CR+22*CD > , 35 

570 POKE < 38400+CFl+22*CD ) . 4 

580 flE=Cfl:ED=«CD 

590 GETR$ 

600 I FR*« " " THENfl*«E« •■ GOTO620 

605 I FR*<> " fl " THEN I FRfO " Z " THEN I FR*0 " , " THEN I Ffl*0 " . " THENR$« " 
620 I Ffl*» " fl " flNDCD>2THENCDwCD- 1 
630 I Ffl«« " Z " nNDCD<22THENCI3»CD+ 1 
640 I Fflf « " . " flNDCR> 1 THENCfl«Cfl- 1 

650 I FRf = " . " flNDCfl<20THENCR=Cfl+ 1 

655 B$=R* 

656 SC=SC.+ 1 

660 POKE'r.38400+RE+22*ED>. 1 

690 RETURN 

700 REMCRRSH 

710 P0KE36878.15 

720 FORV«150TO250STEP5 

730 P0KE36S77..V 

740 FORT- 1 TO 7/5 : NEXT 

750 NEXT 

760 P0KE36878 , : P0KE36877 > 

765 SC«SC*<10-SK) 

770 PRINT"»iiiKWWVOU SCORED "SC 

780 IFHS<SCTHENHS«SC 

790 PRINT"J!WiiiimOH SCORE IS"HS 

800 FORT«1TO2000:NEXT 

810 GOTO30 

8000 REMINTIRLISE 
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8005 


PRIHT'TJ" 




8010 


fl«0:REM CRASH FLFlO 




8012 


OOSU69000 




8015 


SCe0:REM SCORE 




8020 


Cn«2 : CII»3 : REM START I NO 


POSITION OF CAR 


8030 






8040 


PR I NT " mwmmmmmmmk 




8030 


PRINT"n«^ I 




8060 


PRINT"!Mi m I 


m m"i 


8070 


PRINT"SK! 


m w .; 


8080 


PRiNT"^ mm 




8090 


PRINT"!^ m 




8100 


PRINT"|gg % mi 




8110 


PRiNT'"ig^ m mm 


mi"i 


8120 


}r'Rim"^mm mm m i 


^ mi"i 


8130 


PRiNT"m^ mm& m m 




8140 


PRINT"^ wmm m i 


m wi 


8150 


PRiNT"ss^ mm m i 


m im > 


8160 


PRiNT"^ mm n 


mi" / 


8170 


PRiNT"!^ mi m 


1 W'i 


8180 


PRINT"!® mi mi 


m"i 


8190 


PRiNT"i@ fm im 


misi"i 


8210 


PRINT"^ m 


ms&"i 


8220 


PRINT"!M mi m 


mm"; 


8230 


PRiHJ"mmm m m 


% fmsi" ) 


8240 


PRWJ"m^iMi 


mi"i 


8250 


PRINT"lg!g^ m 


m m"} 


8260 


PR I NT " mmmsmmmmmm 




8500 


RETURN 




9000 


PRINT"31«!Ittl!nENTER VDUR 


SKILL" 


9010 


PRINT")!LEVEL <1 TO 9>" 




9020 


OETB*:SK«»VAL<B*) 




9030 


I FSK< 1 OR8K>9THEN9020 




9040 


RETURN 





10 REM SPEEDWAY 

15 REM JOYSTICK VERSION 

20 HS»0 

30 GOSUB8000 

520 P0KE36878.15 

522 FORT« 1 TOSK : P0KE3S876 ..130+1 0*T : NEXT 

525 P0KE36878 , : P0KE36876 » 

540 I FPEEK < 7680+CA+22*CD > = 1 02THEN A* 1 

560 POKE C 7680+CA+22*CD ) .. 35 

570 POKEC38400+CA+22*CD>. 1 

580 AE«CA:ED«»CD 

590 GOSUB2000 

600 IFX«0THENX«B 

620 IFCD>2ANDX»»22THENCD»CD-1 

630 IFCD<22ANDX«-22THENCD»=CD+1 

640 I FC A> 1 ANDX* 1 THENC A»C A- 1 

650 IFCA<20ANDX«-1THENCA«CA+1 
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655 
656 
660 
690 
710 
720 
730 
740 
750 
760 
765 
770 
780 
790 



610 

2000 
2010 

2020 
2030 
2040 
8000 
8005 
8007 

8010 

8012 
8015 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8210 
8220 
8230 
8240 
8250 
8260 
8265 
8270 



B«X: IFX«22THENX«-"22 

SC«SC-X : PR I HT " M" SC* C 1 0-SK > 

POKE<38400+nE+22*ED) .. 

IFFI«0THEN520 

P0KE36878. 15 

FORV= 1 50TO250STEP5 

P0KE36877.V 

F0RT«1T0V/5:NEXT 

NEXT 

P0KE36878. : P0KE36877. 

SCaSC*<10-SK> 

PRINT"a8«iKWV0U SCORED "SC 
IFHS<SCTHENHSaSC 
PRINT'-WWiHIGH SCORE IS"HS 
FORT«1TO2000:NEXT 
GOTO30 

POKEDD . 1 27 : S3=- < < PEEK <. PB > RNB 1 28 ) «0 > : POKEDD , 255 

P«PEEK. < Pfl > : S 1 =- < < PflHBS > »0 ) : 32= < < PFINB 1 6 ) -0 ) = S0« < ( PFINB4 ) »0 ) 

FR=- < < PflNB32 ? =0 > : X«S2+S3 = V«SO+S 1 

X«-JS<X+1.V+1) 

RETURN 

REniNTIflLISE 

PRINT":!" 

P0KE36879.8 

fl«0:REri CRRSH FLAG 

GOSUB9000 

SC«'0:REM SCORE 

Cf=l=*2 : CD»3 : REM START I HG POSITION OF CAR 
E=-l 
PRINT":i 
PR I NT "n®^ 
PR I NT 
PRINT" 
PRINT"! 
PR I NT "11^ 
PRINT"^ 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT"!^ 
PRINT"?gl^ 
PRINT" 
PRINT" 
PRINT"^ 
PRINT" 
PRINT"'« 
PRINT" 
PRINT" 
PR I NT "»^ 
PRINT" 

IFHSO0THENRETURN 

BiriJS<2. 2> : P0KE37139. : DD-37154 : Pfl«37137 : PB-37152 
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8280 FORT«0TO2 : FOR J-0TO2 = RERD JS < J . T ) : NEXT J . T 
8290 DflTfl0, -22.0. -1.0. 1.0.22.0 
8500 RETURN 

9000 PRIHT''^<M«M)!IiiENTER VOUR SKILL" 
9010 PRINT"MiiLEVEL <1 TO 9>" 
9020 GETB* : SK« VRL < B* ? 
9030 IFSK<1ORSK>9THEN9020 
9040 RETURN 

RERDV. 



Battle 



In this board game, which is somewhat lil<e checkers (except for the size of the board and the 
method of capture), you are the bottom of the screen playing up, and the computer is at the top 
playing down. 

The computer always has the first move. The aim, as in checkers, is to capture your oppo- 
nent's men, but unlike checkers you capture by landing on a piece, rather than by jumping over 
it. You move by responding to the prompt FROM? with the number across the bottom of the 
square you wish to move from, then a comma, then the number along the side. You do the same 
for the "to" square. A move, then, might be: 

FROM? 6,2 
TO? 5,3 

The winner is the first player to capture six of the opponent's pieces. Battle was written by 
Chris Callender, of Cove, Helensburgh. 



5 REM BATTLE - CHRIS CRLLENDER 
10 DflTfl"S81234S6789fg" 

20 m7f\*'immmmi" 
30 iifafi"2mmmm^" 

40 DflTfl"3t^lS mm3" 

50 BRTR"4^ m mm m" 

60 DflTfl"5 m m m m 5" 
70 DflTfl"6^^^^^" 

80 'DFfTf\"7^mmmm7" 
90 'DFaF\"emmmmm" 

100 DRTR" ^123456789^" 
105 HSa0:CS«0 
110 DIMS$<12.13> 
120 FORfl«lTO10 
130 RERIIB:^ 

140 FORB-lTOll :S«Cfl.B>«MIDf<B«.B. 1> :NEXTB:NEXTR 

141 IFINT<RND<n + .5)*0THEN145 

142 S*<5.5)»"t" :S*<5.7>=" " 
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1 45 P0KE36879 , 25 : PR I NT " .1" 

150 OOSUB1130 

155 print: PRINT: PRINT 

157 IFCS«STHENPRINT"I WIN!!":STOP 

160 INPUT"FR0M".;FI.B 

170 INPUT"TO"JC.D 

1 80 I FOBS < fl-C) « 1 flNDRBS < B-D > « 1 THEN220 
1 90 PR I NT " I LLEGFIL MOVE " : GOTO 1 60 
220 I FS* < C+ 1 , D+ 1 > « " » " THENHS«HS+ 1 
230 S*<fl+l,B+n»" " :S*<C+l.D+l)*"t" 
240 GOSUB1130 

245 PRINT: PRINT: PRINT: PRINT" „.ppj 

247 IFHS«6THENPRINT"V0U WIN!!":STOP 

250 fl*« " "I* " : GOSUB 1 000 

260 IFFL=slTHEN300 

270 fl*a«" ": GOSUB 1000 

300 S*<E.F>=" " 

305 I FS* < E+G / F+H > « " 4> " THENCS«CS+ 1 

310 S*<E+G.F+H>«"i" 

320 GOTO 150 

1000 M E«2:Fb2:G«0:H=»0 

1010 FL»0 

1020 IF8$<E..F)O"«"THEN1100 
1 040 I F8* E+ 1 . F+ 1 ) a|=|*THENG« 1 : H« 1 
1 050 I FS* < E+ 1 , F- n -flfTHENG* 1 : H— 1 
1060 I FS$ C E~ 1 . F+ 1 > :»Pl*THENG»-- 1 : H« 1 
1 070 I FS* < E~ 1 , F- 1 ) sfl^THENG"- 1 : H«~ 1 
1 080 I FG<>0flNDH<>0THENFL= 1 : RETURN 
1 1 00 E-E+ 1 : I FE> 1 0THENE«2 : F«F+ 1 
1110 IFF>11THENRETURN 
1120 GOTO1010 

1130 PRINT"S8" :FORFI=1TO10: PRINT :F0RB«1T011 
1140 PRINT"ia"J : IFS*<fl.B>a"*"THENPRINT"?ai".; 
1145 IFS*<R.B)»"i»"THENPRINT"i" ; 
1 1 50 I FS« < n . B > = "4 " THENPR I NT " M" .1 
1155 PRINTS*Cfl.B>; 
1160 NEXT: NEXT 

1 170 PRINT : PRINT : PRINT" SWIE : "CS. " VOU : "HS"Ba" 
1180 RETURN 
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Reverse 



In this brain-boiler, the computer randomly mixes the numbers from zero to nine, and you have 
to put them in order in as few 'reverses' as you can. I'll explain what a "reverse" is. If the com- 
puter had generated the sequence 5924861703 and entered 1 in response to the question 
"REVERSE NUMBER?", the sequence would be reprinted as 3071684295. Entering 4 would 
then produce 3075924861 . That is the digits from position four to the end would be reversed. 
As you can see from line 1 70, the sequence the computer is looking for is 01 23456789. Get 
the numbers in that order and the game is over. It may well take you 40 or so moves to order the 
digits, unless you're particularly clever— or lucky. 



10 REM REVERSE 

20 M= 1 r X=0 : fl$= " " : PR I NT " H" 

30 FORT=0TO9 

40 L«INT<RNDa>*10>+48 

50 Q=l 

60 IFMID^f.flf.Q. l>=CHR4:'r.L)THEN40 
70 IFQ<T THEHQ=Q+1:GOTO60 
80 Fi$=fi*+CHR*<L> 
90 NEXT 

100 PRINT"J!II!1*10VE NO. "M = PRINT"W" ; R*; "H" 

110 1 NPUT " )(RE VERSE NUMBER " ; R = I FR< 1 0RR>9THEN 1 1 

120 Bf="" 

130 FORT«10TORSTEP-1 
140 B*»=Bf+MID$Cfl*.T. 1) 
150 NEXTT 

1 60 fl*=LEFT* < fl* . R- 1 > +B* 

170 IFfl*="0123456789"THEN190 

180 M«M+1 -GOTO 100 

190 PRINT"»iiari'OU did ITI!" 

195 PRINT"W"fl$ 

200 PRINT "WIT TOOK"M" MOVES" 



Space Fighter 



You pilot your V-wing space craft across the void, trying to hit the numbers that appear at ran- 
dom on the screen. You must be quick, for they only stay there a short time. Your score is 
related to the number you run over. The sound effects and the appearance of the V-wing are 
very effective, and you may well wish to use these in other space fight programs you write. 

As usual, you control your ship with "A" (up), "Z" (down), "," (left), and "." (right). 
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10 REM SPACE FIGHTER 
15 HS=0 
20 RESTORE 
25 GOSUBS'490 

1 000 GETFl* : I Ff=l$= " " THENfl*=sB* 
1005 PRINT"Sa*ilSCORE"SC 

1010 EaiC:Q=S:VlaV 

1 020 I Ff=l$= " . " THENS«S+ 1 : C«=C+ 1 : V=62 
1 030 I Ffl*« " . " THENS«S-- 1 = C-C- 1 = V«60 
1 040 I Ffl*= " fl " THEHS=S-22 : C«C-22 = V« 1 
1 050 I Ffl$« " Z " THEHS=S+22 : C=C+22 : 7=22 
1060 W=PEEK<S> 

1 070 I FW= 1 02THENCaE : SaQ = V= V 1 
1075 F«0 

1 080 I FW>48THEN I FW<58THEHSC«SC+W*79 1 ■ F= 1 : P0KE36878 ..15: P0KE36877 

1 086 I FF= 1 THENFORT« 1 35TO230 : P0KE36875 . T = NEXT : P0KE36875 .■ Q 

1087 P0KE36878.7;P0KE36877.2*nSC<Rf >+70 

1 090 I FRND C » . 93THENP0KEC < CC ) . = POKEB < CO . 48 = CC=CC+ 1 : POKEB < CC > 

flCCO :P0KEC<CC>.7 
1100 IFCC«55THEN3000 
1200 POKEE..0 
1210 P0KEC.7:P0KES.V 
1220 B$=fl$ 
1230 GOTO 1000 

3000 PRINT"]«KDaiiiai^IME IS UP" 

3010 PRIHT"Ml»»l!5il*T'0IJ SCORED "SC 

3020 IFHS<SCTHEHHS=SC 

3030 PRIHT"M!!liiaiiHIGH SCORE: "HS 

3035 POKE36878.0 

3040 FORT=1TO3000:NEXT 

3050 GOTO20 

9490 PRINT"r3" 

9540 S«7726 

9550 C=38446 

9570 B*="." 

9590 FOR2=7702TO7723 : P0KE2 .. 1 02 : POKEZ+30720 .. 7 : NEXT 
9600 F0R2«8 1 64T08 1 85 : POKEZ . 1 02 = POKE2+30720 , 7 ■ NEXT 
9620 FORZ«7680TOS 1 64STEP22 = POKEZ . 1 02 : POKE2+30720 . 7 = POKEZ+2 1 . 

1 02 : POKEZ+3074 1 . 7 : NE XT 
9625 IFHSO0THEN9640 
9630 Dim<55>.B<:55>.C<55> 
9640 F0RZ=1T055 
9650 fi'.'Z>=INT<RND<0>*9>+49 
9660 B < Z > =7704+ 1 NT < RND C > *458 > 
9665 C<Z>=B<Z> +30720 
9670 I FPEEK B C 2 > > « 1 02THEN9660 
9680 NEXT 
9690 CC«1 
9700 V=60 

97 1 SC=0 : I FHS=0THENHS« 1 
9720 POKE36879,10 
9999 RETURN 
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Zodiac Fortune Teller 



Zodiac Fortune Teller, written by A.G.T. Stevens, uses a question-and-answer method to get 
the VIC to earn its keep providing sideshow entertainment. The results should not be taken too 
seriously. 

5 PRINT"T 
10 G0SU6 840 
20 PRINT 

30 PRINT"I»IILL VOU PLEASE " 
40 PRINT" TELL ME VOUR NAME" 
50 INPUT fl$ 
60 PRINT"T 
65 00SU6 840 
67 PRINT 

70 PRINT"BTHflNK VOU ";fl* 
80 PRINT 

90 PRINT-nWILL VOU NOW PLEASE" 
100 PRINT" TELL ME VOUR BIRTHDflV" 
110 PRINT 

120 PRINT"IIBIVE ME 4 NUMBERS" 
130 PRINT 

140 PRINT"BrONTH FIRST" 

150 PRINT" 01<JfiN>-12<DEC>" 

160 PRINT 

170 PRINT" FOLLOWED BV DfiV" 

180 PRINT" 01 - 31 

190 INPUT B 

200 PRINT"T 

210 OOSUB 840 

22«I>RINT 

225 PRINT"a VOU WERE BORN UNDER" 
230 PRINT" THE SIGN OF -" 
240 PRINT 

250 IF B>»0101 RND B<"0120 OR B>*>1223 AND B<«1231 THEN PRINT" CAPRICORN" 

260 IF B>=0121 AND B<=0219 THEN PRINT" AQUARIUS" 

270 IF B>«0220 AND B<-0321 THEN PRINT" PISCES" 

280 IF B>"0332 AND B<» 420 THEN PRINT" ARIES" 

290 IF B>«0421 AND B<«0521 THEN PRINT" TAURUS" 

300 IF B>>"0522 AND B<« 0621 THEN PRINT" GEMINI" 

310 IF B>«0622 RND B<-0723 THEN PRINT" CANCER" 

320 IF B>«0724 AND B<»0823 THEN PRINT" LEO" 

330 IF B>-0824 AND B<«0923 THEN PRINT" VIRGO" 

340 IF B>«0924 AND B<-1023 THEN PRINT" LIBRA" 

350 IF B>-1024 RND B<»1122 THEN PRINT" SCORPIO" 

360 IF B>»1123 AND B<«1222 THEN PRINT" SAGITTARIUS" 

370 PRINT 

380 PRINT"SHALL I TELL" 

390 PRINT"VOUR FORTUNE ";A$;"?" 
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400 PRINT 

410 PRINT" PRESS V OR N" 
420 INPUT C* 

430 IF C*="V"THEN PRINT"T 

431 IF C»«"V"THEN GOSUB 840 
440 IF C*«"N" THEN GOTO 829 
450 PRINT 

460 J=INT<10)KRND<1>)+1 
470 IF J»l THEN PRINT"BITCHV PflLM?fl CASH 
480 IF >2 THEN PRINT"aBEWflRE!fl FINflNCIfiL DEAL COULD LOSE 
490 IF J»3 THEN PRINT-'BRN flCQUfllNTflNCE MAKES ATTRACTIVE PROPOSAL 



WINDFALL COULD BE DUE" 



500 IF J«4 THEN PRINT"SINVEST SPARE MONEV WISELV" 
510 IF J=5 THEN PRINT"aflVOID INDECISION STICK TO EXISTING PLANS" 
520 IF J-6 THEN PRINT"»i'OU ARE ENTERING A SUCCESSFUL PHASE" 

530 IF J=7 THEN PRINT"aiMPORTANT TO KEEP ON GOOD TERMS WITH 
540 IF J=8 THEN PRINT"aRMBITIOUS PLANS COULD BE IN VOUR FAVOUR" 
550 IF J=9 THEN PRINT"aiF VOU HAVE PREVIOUSLY FAILED-TRV AGAIN" 
560 IF J»10 THEN PRINT"»IEW INTERESTS COULD BRING FRESH BENEFITS" 
570 FOR Tel TO 150: NEXT t 
580 PRINT 

590 K=INT<10#RND<1))+1 

600 IF K=l THEN PRINT"ICERTAIN PEOPLE MAV BE 
610 IF K«2 THEN PRINT"IRVOID EMOTIONAL 
620 IF K«3 THEN PRINT"llflN INTERVIEW OR MEET- 
630 IF K=4 THEN PRINT"USOCIAL LIFE COULD 
640 IF K=5 THEN PRINT"in BUSV MONTH AHEAD IS 
650 IF K=6 THEN PRINT"IWOT AN ENERGETIC MONTH AHEAD BUT TRV TO VARV 
TIES" 

660 IF K=7 THEN PRINT"»1AKE SURE VOU ARE NOT CAUGHT OFF GUARD 
ONTH" 

670 IF K=8 THEN PRINT-WOU MAV NEED HELP FROM CLOSE CONTACTS" 
680 IF K=9THEN PRINT»IFALL IN WITH OTHERS ARRANGEMENTS" 
690 IF K=10 THEN PRINT"IBOME KIND OF FAMILY REUNION COULD TAKE 
700 FOR S=l TO 150: NEXT s 
710 PRINT 

720 L«INT<10*RND<1>)+1 

730 IF L«l THEN PRINT"BPRESS ON WITH OUTDOOR 
740 IF L»2 THEN PRINT"!!f>LANETARV INFLUENCES 
750 IF L=>3 THEN PRINT"f»IN OPPORTUNITY WILL 



ACTIVITIES" 

FAVOUR TRAVEL" 

ARISE GIVE IT CAREFUL 



ON" 

760 IF L«4 THEN PRINT"!!frHIS MONTH IS FAVOUR- 

770 IF L=5 THEN PRINT"!SirESTING TIME AHEAD 

780 IF L«6 THEN PRINT"ISIBE FASHIONABLE BUY 

790 IF L=7 THEN PRINT".HTRY TO CUT DOWN ON 
EMS!" 

800 IF L=8 THEN PRINT"!SBUPERIORS COULD BE 
US" 

810 IF L=9 THEN PRINT"!* FRIEND MAY HAVE 
820 IF L»10 THEN PRINT"!«3FFERS OF HELP MAY BE 
825 END 

829 PRINT"T 

830 PRINT "BALL RIGHT THEN ";A*;" BYE BYE" 



-ABLE FOR AGREEMENTS" 
BE PREPARED!" 
A NEW OUTFIT" 
INESSENTIALS OTHER- 
DIFFICULT BE FIRM 

PROBLEMS TRY TO BE 
REFUSED-PERSIST YOU 



VOU MONEV" 
BE CAREFUL! 



EVERYBODY" 



ANYTHING BUT HELPFUL" 
ENTANGLEMENTS" 
-ING COULD BRING MORE 
PROVIDE MORE VARIETY" 
INDICATED" 



SECURITY" 

YOUR ACTIVI 
LATER NEXT M 

PLACE" 



CONSIDERATI 

-WISE PROBL 

BUT COURTEO 

HELPFUL" 
ARE NEEDED" 
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831 END 

840 PRINT TflBO);"?!! 1" 

850 PRINT TRB<3);"Ri ■NmifiCfRBO ic^mmsf\nc \" 

860 PRINT TflB<3>;"l I" 

870 PRINT TflB<3);"l iFaDliFliraJWiE ISfTIIEILaL^ni? I" 

880 PRINT TflB<3>;"l 1" 

890 POKE 36878>15 

900 FOR L=l TO 100 

910 POKE 36876. INT<RND<1)#128>+128 

920 FOR M=l TO 10 

930 NEXT M 

940 NEXT L 

950 POKE 36876.0 

960 POKE 36878.0 

970 RETURN 



REflDV. 



Engulf 



In this game, you are moving about (most musically, as you'll hear) trying to avoid being 
trapped by the colored blocks the computer is placing on the screen. You have to keep moving 
as long as you can. Eventually, thanks to the clever VIC, you become engulfed by blocks and 
will not be able to move any more. You'll be given a score related to how long you managed to 
remain free. 

Your movements are controlled by the same keys as in Zombie Island— "A" = up, "Z" = 
down, "," = left, and "." = right. 



10 REM ENGULF 

20 GOSUB9490 

30 SC=0:REri SCORE 

1000 6ETfl$: IFR*=""THENR$=B* 

1010 E«C:G!«S 

1 020 I Ffl$« " . " THEHS=S+ 1 : C=C+ 1 = 1 95 
1 030 I Ffl$= " . " THENS»S- 1 : C«C- 1 : N«207 
1 040 I Ffl$=» " fl " THENS=S~22 = C=C~22 : N«2 1 5 
1 050 I Fflf = " Z THENS=S+22 = C=C+22 = Na£25 
1060 WsPEEKCS^ :F«0 
1 070 I FW« 1 02THEHC»=E : S^Q 

1 075 I FPEEK (. Q+22 > » 1 02THENF=F+ . 25 

1 076 I FPEEK C Q-22 > » 1 02THENF«F+ . 25 

1 077 I FPEEK C Q~ 1) « 1 02THENF«F+ . 25 

1078 IFPEEK<Q+l>s=l02THENF«F+.25 
1090 IFF«1THEN2000 

1100 SCsSC+1 

1 1 10 H»7680+INT<RNB<:0>*484> : IFPEEKCH> = 102THEN1 1 10 
1 1 20 J«H+30720 : POKEH . 1 02 
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1 130 M»INTCRNDC0>*7> : IFM-lTHEHl 130 
1140 POKE J. M 

1150 P0KE36874.N:P0KE36875.N+1 

1200 POKEE.l 

1210 P0KEC.2:P0KES.216 

1220 B$«R$ 

1230 GOTO 1000 

2000 POKE3687e.0 

2010 PRiNT'-awDBBwaiiiiii-'VE cot VOUM" 

2020 .PRINT")P)aiWiri'OU SCORED "SC*236 

2030 GOTO2030 

9490 PR INT" r3" 

9540 S«7954 

9550 C*38674 

9570 B*»". " 

9590 FOR2-7680TO770 1 POKEZ . 1 02 : POKE2+30720 . 2 : NEXT 
9600 F0RZ=8 1 64T08 1 85 : POKEZ . 1 02 : POKEZ+30720 * 2 = NEXT 
9620 FORZ*7680TO8 1 64STEP22 : POKEZ . 1 02 : POKEZ+30720 . 2 = POKEZ+2 1 . 

102 : POKEZ+30741 . 2 : NEXT 
9630 P0KE36878,15 
9640 RETURN 



Reaction 



Your reactions come under scrutiny in this program wliich uses double-lieiglit cliaracters. 
When you run the program, you'll see the words STAND BY appear. Then the screen will clear, 
and after a random time, the words OK NOW PRESS THE SPACE BAR will appear. You must hit 
the space bar immediately. If you do so within the time limit, the words HEY YOU DID IT come 
up on the screen, and the process will start again. However, the time available to you to react 
will decrease. 

The process will continue, with you being given a shorter and shorter time to react each time. 
Eventually you will fail, and a "reaction rating" (LOUSY, FAIR, PRETTY GOOD, VERY GOOD, or 
YOU'RE THE CHAMP) will be given, depending on how short the time of your last successful 
reaction was. 

10 REM RERCTION 

15 riiriR$<4> 

20 PRINT"^" 

30 GOSUB9000 

40 fl*«''M(!WW|iiiilSTflND>KiV'' 

50 Efs-OSnODKIiHOWIiPRESSmrHEItiiiiBPflCEIilBRR" 
60 rif="]SW»iiHEVWOUIilDIDIilIT" 

70 Q=50 

980 PRINT":7!S"fl* 

985 FORT= 1 TO500 : NEXT 

990 FORT=!lTO100+RND<0>*400 



140 



992 I FRHD < 9 > > . SSTHENPR I NT " 
995 NEXT 

1 000 GETF* : I FF*<> " " THEN 1 000 
1010 PRINT"r:^"B* 
1020 E=TI 

1 030 GETF* : I FF*=* " THEN 1 030 

1040 G=TI-E:PRINT"ai" 

1050 IFG<Q+1THENPRINTD$ 

1060 IFOQTHEN1120 

1 070 FORT« 1 TO2000 : NEXT 

1075 G=Q-INT':RND<0>*5+2> 

1 080 GETF* : I FF*<> " " THEN 1 080 

1090 GOTO980 

1120 PRIHT"»" 

1125 I FQ>40THEHPR I NT " WSiSLOUS V " 

1130 I FG<4 1 flNDQ>30THENPR I NT " )5M1»FR I R " 

1 1 40 I FQ<3 1 flNriQ>20THENPR INT" )!li»iPRETT VHIGOOD 

1 1 50 I Fia<2 1 FINDG> 1 0THENPR I NT " Wflf-'ER VHIGOOD " 

1 1 60 I FQ< 1 1 THENPR I NT " WWVOUREirTHESICHfiMP " 

1 1 80 FORT« 1 TO 1 000 : NEXT 

1190 PRiNT"riJ!ieiM»»Mii»ir 

1 200 PR I NT "NEWMGflMEMCOM I NGUUP " 
1210 FORT= 1 TO5000 = NEXT 
1220 GOTO70 

9000 P0KE56 . 28 : Fl«32776 = F0RB=7 1 84TO7600STEP2 
9005 POKEB .. PEEK C fl > : POKEB+ 1 . PEEK < fl > 
9007 fl«ft+l:NEXT 

90 1 P0KE36879 . 25 •■ P0KE36869 .■ 255 
9015 P0KE36867.47 
9020 RETURN 
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Spacetrek 



You are in command of a galactic probe ship, responsible for the safety of a ten-by-ten sector 
of space, containing the Antares, Procyon, Rigel, Vega, Canopus, Altair, and Sagittarius sectors 
of the known galaxy (see lines 8540 to 861 0). This area of space contains a number of rather 
slow-witted aliens. They are immobile during a game, although their positions will, of course, be 
different from game to game. 

You have a limited amount of energy, and your task in the game is to roam the galaxy, making 
use of your long- and short-range scanners when you choose to do so to locate and then destroy 
the aliens. A direct hit is not always successful, and your firing on the aliens often enrages them 
so that they fire back at you. If they hit you, the damage you sustain is measured in energy 
units, decreasing the energy you have left to use. Moving, firing, and using the scanners all con- 
sume energy. Long-range scanners use up more energy than short-range ones. 

When you run the program, you'll see the sector space drawn out in the bottom left of the 
screen. At first it will be blank except for you-the red inverse dollar sign in the middle. Under 
the sector are the words YOU ARE IN RIGEL SECTOR AT 5 5 - ENERGY 1 234 and at the top of 
the screen are your three options 1 - SCAN 2 - MOVE 3 - FIRE. You enter one of the three 
numbers. 

SCAN works in one of two ways. If you enter 1 to show you wish to scan, the words SCAN- 
NER: SHORT ( 1 ) OR LONG (2) RANGE will appear. Short-range looks at the squares immediately 
surrounding the one you are in, and reports if there is anything there. It does not tell you in 
which direction. Long-range allows you to choose the direction and gives a readout of what is 
two squares away in that direction. As I mentioned earlier, captain, long-range scanning uses up 
more energy than short-range scanning does. If you told the VIC you wished to scan north, it 
will reply SCANNER IS POSITIVE (which means an alien ship is to the north of you) or SCANNER 
IS NEGATIVE which means the square two to the north of you is empty. 

You have to try and kill as many aliens as you can before you run out of energy, but as each 
action uses up energy, you must judge your moves most carefully before making them. If you 
fire into an empty square, it will turn into an inverse blue X so you know not to shoot into that 
square again, although you may move through it if you like. A direct hit gets an inverse purple 
asterisk in the relevant square. 

You'll find that playing the game will teach you more about how to play it than these instruc- 
tions will. When you enter FIRE or MOVE as your choice, you'll be asked to indicate the direction 
you want. First the computer will ask N/S (for north or south), and if you wish to move in one of 
these directions, enter N or S. Just press RETURN if you do not want to move up or down. Then 
you'll be asked to choose from east or west. Again, just press RETURN if you do not want to 
move east or west. You can combine moves to move, for example, northeast, or southwest, if 
you like. 

The program is very tight on space, with just over 1 00 bytes left when the game is underway, 
so a number of error-trapping routines, which would have been useful, have been left out. Cer- 
tainly you should add them if you have memory. Note that the short-range scanner cannot be 
used in the outer circuit (that is, if either coordinate is 1 or 1 0). The long-range scanner cannot 
be used if either coordinate is 1 , 2, 9, or 1 0. 

There is nothing in the program to stop you from trying to move off the galactic grid, but try- 
ing to do so will cause the program to crash. Add your own choice of name for an alien in line 
9240 if you don't like mine. 
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If you have extra memory, some sound would certainly enliven the action. As well, you could 
add a routine to move the aliens slowly about, and one to put the name of a new member before 
each report (reports being direction of move or fire, location, energy level, information on 
whether you've been hit or not, arid so on), with the actual crewmember making the report 
changing from time to time. 



20 GOSUE9000 
25 GOSUBS000 

40 PR I NT " S^HERGV " I NT < E > 

41 IFE<1THEH3800 

42 I FFIL>0THENPR I NT " raTTRLLV " FIL 

130 PRINT"i«Sl-SCflN 2~M0VE 3-FIRE" : INPUTD 

156 IFD=1THENGOSUB1000 

157 IFD«2THENGOSUE2000 

158 IFD«3THENGOSUB3000 
160 eOTO40 

1000 GOSUB8e00 

1010 PRINT"!®!I5SBCflNNER.: " 

1 040 PR I NT " SBiSHORT < 1 > OR " : PR I NT " a.ONG < 2 ) RANGE " = I NPUTK 
1080 E«E-10*K:F«0 
1100 IFK=2THEN1500 

1 120 IFflCB+1 , C> = 10RFl<B+l > C+1 >=10Rfl<B. C+n = 10Rfl<B--l , C>«10Rfl 

<B~1.C~1>=1THENF=1 :G0T 01130 
1 125 IFFlCB. C-l >ORfit:B+l . C-1 ) = 10Rfl<B~l . C+1 >«1THENF=1 
1 1 30 I FF=0THENPR I NT " iS^-^EGFlT I VE " : GOTO 1 670 
1140 I FF« 1 THENPR I NT " S^" ; Z* " NEAR " = GOTO 1 670 
1500 PR I NT "DIRECT I ON N-l. S-2. E-3. W~4" = INPUTN = Z=0 
1560 1 FN= 1 FiNDFl C B-2 .. C •;■ = 1 THENZ= 1 
1 570 I FN«2FINDFI < B+2 , C > = 1 THENZ« 1 
1 580 I FN=3RNDfl < B . C+2 > = 1 THENZ» 1 
1590 IFN=4FlNDFl<B. C~2> = 1THENZ=1 
1640 PRINT" iSlkSCflNNER IS 
1 650 I FZ= 1 THENPR I NT " POS I T I VE " 
1 660 I FZ=0THENPR I NT " NEGflT I VE " 
1 670 FORT= 1 TO2000 : NEXT = GOSUB8000 : RETURN 
2000 E=E-50:fl<B.C>=0:E<B.C>«0 
2010 fi$="" :B$«"" 
2060 I NPUT " r® I RECT I ON < N/S > " .: m 
2100 IFflf="N"THENE=B--l 
2120 IFfl*="S"THENEaE+l 
2140 PR I NT "NOW flT"B" "C 
2 1 50 INPUT " lipiiftiic: E/W V ; E* 
2160 IFB$="E"THENC=C+1 
2165 IFB*«"W"THENCaC-l 
2170 PR I NT "NOW flT"B" "C 
2180 FORI = 1T01 000 '. NE^^T 
2260 I Ffl •:: B .. C '> ~ 1THEN5500 
2270 fla:.C>=2:E';B.C>=2 
2290 GOSUB8000 
2300 RETURN 

3000 G=B:fl*="" 

3005 PR I NT " R© I RECT I ON OF FIRE " : I NPUT " N/S > " .: fl* = I Ffl$= " N " THENG«G~ 1 
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3010 IFFl$="S"THENGaG+l 

3020 F=C 

3030 I HPUT " li»iWi»l< E/W > " ; fl* 

3120 IFfl$="E"THEHF=F+l 
3130 IFfi*="W"THENF=F-l 
3180 E=E-100 

3190 IFfl<6..F><>lTHEN3305 

3200 PRIHT"VOU HIT THE" ^ PRIHT"ra"Z* 

3220 flL=flL+l :B'.':G..F>=4:GOTO3410 

3305 B';G.F';'=3:PRINT"S*t'CiIJ MISSED.. SIR" 

33 1 5 FORG= 1 TO 1 000 : NEXT 

3320 PRIHT"THE "Z*" ARE" : PR I NT "SHOOTING EFiCK" 
3325 FORG= 1 TO 1 000 : NEXT 
3340 IF RNri'r.0>>,6THEH3400 

3350 PRINT" arSTTHEV HIT US ! ! " = E=E-100*RNri<0> = GOTO3410 

3400 PR I NT "THE "Zf" MISSED" 

34 1 FOR I s 1 TO 1 000 : NEXT : GOSIJB8000 : RETURN 

3800 PRINT"'JPENERGV EFlNKS EXHAUSTED" 

3810 PRIHT"'JfIVOU KILLED"flL"flLIEH"; : IFflL01THENPRIHT"S" 

3820 PR I NT "WON THIS M I SS I ONSfft'OUR COMMAND RATING IS "1000*CAL/8) 

3830 GOTO3830 

5500 PRINT"jSrT'OUR SHIP HAS LANDED ON AIH"Z*" SHIP" 
5540 PRINT"WgNrr'OUR SHIP HAS EXPLODED" 
5550 GOTO5550 

8000 PRWT " mmmmm" i 

8020 FORQ=1TO10 

8045 FORP=1TO10 

8060 I FE < Q . P ) =0THENPR I NT " mW ; 

8070 I FB < Q .. P > a2THENPR I NT " " .; 

8080 I FE < Q . P > =3THENPR I NT " " ; 

8090 I FB < Q .. P > =4THENPR I NT " " ; 

8160 NEXT: PRINT: NEXT 

8500 QaB*C:PRINT"nfT'OU ARE IN" 

8540 I FQ< 1 0THENPR I NT " ■ ANT ARES " ; 

8550 I FQ>9ANDQ<20THENPR I NT " iPROCVON " .: 

8560 I FQ> 1 9ANDQO0THENPR I NT " rW? I GEL " .: 

8570 I FQ>29 ANDQ<50THENPR I NT " iS?-/EG A " ; 

8580 I FQ>49ANDQ<70THENPR I NT " ^ANOPUS " ; 

8590 I FG>69 ANDQO0THENPR I NT " BiALTfl I R " ; 

8600 I FQ>89THENPR I NT " iSS AG I TT AR I US " ; 

8610 PRINT" SECTOR AT"B" "C 

8640 RETURN 

9000 DIMA< 10. 10> . B< 10. 10> 

9060 FORA«1TO40:X=INTc:RND<:0>*10> + 1 : V«INT<:RND<0>*10) + 1:A<X.V>«1 :HEXT 

9150 B=5 : Ca5 : ACE. C";'«2 : B-T-B.. C>»:2 : AL«0 

9240 Z$=="ANDR02IANS" 

9340 E«1234 

9350 P0KE36879..25 

9990 RETURN 
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Biorhythms 



This program is based on the three cycles that affect us throughout our lives— the physical, 
emotional, and mental cycles. The 23-day physical cycle relates to such things as strength, ag- 
gressiveness, and endurance. The emotions are said to be affected by a 28-day cycle, which 
relates to optimism/pessimism, frustration, temper, and moodiness. The mental cycle is 33 
days long, and this relates to logic, common sense, reasoning, and ease of expression. 

When you run the program, you'll be asked to enter your date of birth (following the clear 
prompts), and the day for which you want a biorhythm calculated. The computer will give you 
three forecasts— the day before the one you've specified, the day you want, and the one that 
follows it. 

You are then given the option of asking for a new forecast (based on the same date of birth) or 
of stopping the program. A zero rating is a neutral day; positive figures are a good sign, while 
negative ones are warnings of a bad day in the area governed by that particular cycle. If all three 
are negative, you'd better stay in bed for the day. 

10 REM BI0RHVTHM8 

15 REM RLflSTfllR GOURLflV^TIM HFlRTNELL 

20 PRINT"rM««!HtEHTER VOUR DFiTE OF BIRTH" 

30 INPUT-'XTt'EflR <flS 1984>";fl 

40 INPUT"W10HTH <flS 7V';E 

50 INPUT-'WDflV <FlS 2iy";c 

60 flaR*365.25+B*30.4+C 

70 PRINT"r»WWWRHD HOW THE DRTE FOR VOUR EIORHTHM" 

80 INPUT-WERR <RS 1984>";B 

90 INPUT-MIONTH CflS 7>";C 

100 INPUT "WDRV <RS 21>".:D 

110 B«B*365.25+C*30.4+D"-fl 

112 PR I HT" III" 

115 F0RF«-1T01 

116 I FF=~ 1 THENPR I NT " mWREW I OUS DRV : " : B«E~ 1 

117 IFF=0THENPRINT"lWDRV OF FORECAST :": Ba=B+l 

118 IFF=lTHENPRIHT"i)!WEXT DRV:":E«B+1 
120 C»*23 

130 PRINT"nFHVSICRL: "; 
140 GOSUB250 
150 C=28 

1 60 PR I NT " iEMOT I ONRL : " ; 
170 GOSUE250 
180 C«33 

190 PRINT"BiINTELLECTURL: "; 
200 GOSUB250 
205 NEXTF 

210 PRINT"]BWIII«ES:HTER 'V-- FOR R NEW FORECAST . ^N' TO STOP" 
220 GET W$: IFW*=""THEN220 
230 IFW*«"V"THEN70 
240 END 

250 PRINTINT<100*SIN<<B-INT«;B/C?*C)/C*44/7)>; "?i" 
260 RETURN 
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Billboard 



This tiny program produces very big results— twice as big, in fact. You enter the "advertising 
message" you want displayed in the strings A$, B$, and C$, using the "shift right" instead of a 
space between the words. Only letters of the alphabet can be used with this program. Symbols, 
spaces, and numbers are not allowed. 

You may well wish to modify the program so that instead of A$, B$, and C$ being permanent- 
ly set, you can enter them each time you run it. Simply change line 70 into INPUT A$, line 80 
into INPUT B$, and line 90 into INPUT C$. Note that if you do this, you can only enter single 
words, and you cannot use the controls to position your words. 

10 REM BILLBOARD 

70 fl*="MW)»»iraTHIS«IS»IRHrTEST" 

80 B$« " -JSIB^H I SMSHOWSM'JHf=lTlii»i»»»HRPPENS " 

90 C$="W»iGRflPHICI*IDEr'10" 

100 GOSUE9000 

110 PRIHT"r3"Rf 

1 20 FORD= 1 TO5000 : HEXT 

130 PRINT"r3"B* 

140 FORD=1TO5000:NEKT 

150 PRIHT"n"C$ 

160 FOBD=1TO5000:NEXT 

170 GOTO110 

9000 P0KE56 > 28 : fl=32776 : F0RE=7 1 84TO7600STEP2 : POKEB , 

PEEK''Fl> : POKEB+1 . PEEK<:fl> = fl«fl+l : NEXT 
90 1 P0KE36879 . 25 = P0KE36S69 , 255 = P0KE36867 . 47 J 
9020 RETUR^^ //.rfi^ik 
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Quack 



In this rather daft game, you have to shoot the little purple ducks flying overhead. You shoot 
by pressing the space bar. You can move yourself right and left by pressing the "Z" and "M" 
keys respectively. Your score at the end of a limited time— which clocks down on the screen 
throughout the game— relates to the number of hits you had, compared with the number of 
shots you fired, so you cannot get a high score just by firing over and over again. 

The quacks do not fly in a totally predictable manner, which adds to the challenge. The sound 
and display when you score a "hit" are quite satisfying. Note that there is a time penalty im- 
posed every time you press the space bar, another good reason for firing with moderation. 



10 REM QURCK 

20 PRINT":i" :P0KE36879. 122 

30 B«7:H=10:8C«0:HI«0:FC*0 

40 FORP«1TO50 

45 IFP«41THENPRINT"SI 

50 PRINT"SmME"50-P" SHOTS "FC 

100 FORZ=0TO20 

110 P0KE7768+Z. 127 

115 P0KE7769+2.81 

120 P0KE3S488+2.4 

125 P0KE38489+2.4 

142 GOSUB500 

143 SC«SC+HI 

144 I FH I « 1 THENP0KE36879 , 8 = P0KE36879 , 1 22 

145 IFHI«1THENPRINT"»PSCORE"SC:HI«0 

147 P0KE38488+2.B 

148 P0KE38489+2.B 

1 50 I FRHD < 1 » . 4THEN I FZ< 1 7THENZ«Z+2 
160 NEXT 
170 NEXTP 

180 PRINT'-WWriME IS UP" 

1 90 PRINT" SUCCESS RRTE " I NT CI 0000* C SC+ . 0000 1 ) / < FC+ . 0000 1 > ) 1 00 " Ji " 
200 END 

500 P0KE38862+H.B 
520 OETfl* 

530 I FFI$« " 2 " THEN I FH> 1 THENHsH- 1 

540 I FR*« " M " THEN I FH<20THENHaH+ 1 

560 POKE38862+H.0 

570 POKES 142+H. 88 

575 IFR*=" "THENGOSUB1000 

580 RETURN 

1000 REM SHOT 

1002 FC=FC+1 : P=P+1 : IFP>49THENRETURN 

1003 IFPa41THENPRINT"5S8 

1004 PRINT"!«nME"50-P" SHOTS "FC 

1005 FORVsg098TO7768STEP-66 
1010 POKEV+H.90 
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1020 POKEV+H+30720.0 
1050 POKEV+H+30720.B 
1060 NEXT 

1065 IFH»2dRH=Z+lTHENHI«l :P0KE36878. 15 = P0KE36875. 
1070 ||,tH^'^0RT.lT03:NEXT:P0KE36878. 



Magic Square 



The clever computer generates a three-by-three magic square, replacing three or four of the 
numbers with zero. As you probably know, each line of numbers in magic square (vertically, 
horizontally, and diagonally) adds up to the same total. It is your task to work out what the miss- 
ing numbers are. 

If there is already at least one complete row, it is fairly easy, with a bit of swift mental arith- 
metic, to determine (a) the total and (b) what digit will complete one of the other rows. This new 
digit should help you with another row and so on. if, however, there is not a single complete 
row, as sometimes happens, your task will be much harder. 

The computer counts the number of moves it takes you to complete the square, and then 
gives you a score at the end, which is related to the number of wrong guesses you made on your 
way to solving the problem. 



10 REM MAGIC SQURRE 

20 fl= I NT >: RND < > *Si ) + 1 : ri«6 

30 PRINT":i" : J«0 

40 BaINT<RND<0:)#9> + l :C=INT<RND<0>*9> + 1 
50 IFfl=BORR«CORE«CTHEN40 

60 R< 1 )«n+B : fl<2>=R-<:B+C> : fl<3>sfl+c : R<4>«R-B+C : R<5)«R 
70 fl<6>=fl+E-C : fl<7)=fl--C : fl<8>«R+B+C = R<9>=R-B 
140 F*0 

150 F0R2«lT09:B<Z>«fl<Z> 
160 IFB<Z>«0THENF=1 
1 70 NEXT : I FF« 1 THENRUN 
180 B<fl>»0 

190 D*INT<:RHD<0>*9>+1 

200 I FDOflfiNDDOBRNDDOCTHENM^M-- 1 

205 B<D>=0 

210 BCB:)=0 

220 B<C>«0 

225 G0T0235 

230 OOTO310 

235 J»J+1 

240 PRINT'-saSWDWiMGUESS NO. "J 
250 PRINT"MWi" 
255 F0RZalT09 

260 printbcz);" 

270 i f2«30rz=6thenpr i nt : pr i nt 
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280 ,NEXT:PRINT 

290 IFMO9THEHPRIHT")(I«Bi»7'0U HFlVEIi"M"^.IGHT 

300 IFM«9THENPRIHT"JflRWIfiHV0U HAVE SOLVED IT" = PRINT "WOU SCORED" 

IHTa0000/J> 
305 IFri«9THENFORTalTO6000: NEXT: RUN 
310 INPUT"Wi'OUR GUESS" ;W 
320 Ma0 
330 F0RZ-1T09 
350 IFfl<Z>=WTHENB<2)«W 
360 IFB<2>O0THENri«M+l 
370 NEXT 
380 00T0235 



Simon 



Simon appears simple to play, but can be infuriatingly difficult. Your task is to copy the grow- 
ing string of numbers the VIC creates. It will start with one number between one and four, print- 
ing on the screen in a distinctive color, in a specific position, and sounding a corresponding note. 
You repeat the number, and it will reappear, with the position, color, and sound as before ... if 
you are correct. The first number will then be repeated, followed by a second number. You must 
repeat both of these, continuing as the sequence of notes and numbers builds up, until you 
either get a sequence of seven correct or make a mistake. 

You'll find that you'll improve dramatically with practice. Note that if the same number ap- 
pears twice in a row, you have to remove your finger from the key after pressing it the first time. 
The border changes throughout the game to keep you on your toes. 

5 REM SIMON 
10 Flf<n = "lVilW 
20 f=l*<:2> = "Wi2W 
30 Rf <3"J = "^rf'»3W 
40 R$<4:) = "ir^»4Vi" 
50 FORT* 1 T04 : RERDS <.T> ■ NEXT 
60 P0KE36878 .. 1 5 = PR I NT " 
70 F0RC=1T07 

80 LETB<C)s:INT<RND<0)*4? + l 
90 NEXT 
95 LETX=1 

1 00 FORQ« 1 TOX : P0KE36879 , 23+X 
110 GOSUB700 
150 NEXTQ 
160 FORQalTOX 
1 70 GETE$ : I FE$= " " THEN 1 70 
180 LETF=VRL<E*> 
190 IFFOB<Q>THEN500 
200 GOSUB70O 
260 NEXTQ 
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270 X«X+1 : IFX.>7THEN280 

275 FORT= 1 TO600 : NEXT : OOTO 1 00 

2S0 PR I NT "WELL DONE. VOU DID IT" 

290 GOTO290 

500 PR I NT "VOU BLEW IT" 

510 PR I NT "VOU SCORED "X~l 

520 END 

700 C*«R$<B<Q)> 

705 FORTa0TOl :PRIHT"Si" 

710 F0RRalT03*<:E':Q>+T> 

720 PR I NT "jar; 

730 NEXT 
740 PR INTO* 
745 NEXTT 

750 P0KE36875 . S < E < Q ) > 
760 FORV= 1 TO350 : NEXT 
762 POKE36875.0 
765 PRINT";:!" 
770 RETURN 

780 DFITFH95.207,215.225 



Roulette 



Roulette is one of the classic gambling games, and with this program you're ready to try out 
your "system" for beating the wheel . . . without losing your shirt. 

The first program allows full casino betting, playing by the European rules, with a wheel with 
the numbers one to 36, plus zero. The American wheel used in the second program has the 
numbers one to 36, plus zero and double zero. 

The roulette table has the numbers one to 36, some in black and some in red, on it, plus the 
zero (and, in the case of the American system, the double zero). You can place bets on a wide 
variety of number combinations. Once the bets are placed, the wheel is spun, and the croupier 
throws a ball into the wheel, in the opposite direction to the spin. The ball ends up resting on one 
of the numbers and this determines your fate. 

When you run the program, you'll see the words YOU HAVE 1 00 CHIPS. After a short pause, 
the words MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets) appear. You then enter 
a letter of the alphabet from A to P (or Q to quit the game) which indicates which type of bet you 
wish to place. Here is the key to enter your bets: 

A — A single number 

B — Two adjoining numbers 

C — Three numbers in adjoining columns 

D — Six numbers in adjoining columns 

E — Four numbers in a square 

F — Numbers one to 1 2 (known as the First Twelve) 

G — Numbers 1 3 to 24 (the Second Twelve) 
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H — Numbers 25 to 36 (the Third Twelve) 

I — Numbers one to 1 8 (Low) 

J - Numbers 1 9 to 36 (High) 

K — 1 2 numbers in a horizontal row 

L — Two adjacent horizontal columns 

M — Any red number (see below for a list of red and black numbers) 
N — Any black number 
O — Any even number 
P — Any odd number 
Q — To quit the game 

The red numbers are: 

1 , 3, 5, 7, 9, 1 2, 1 4, 1 6, 1 8, 1 9, 2 1 , 23, 25, 27, 30, 32, 34, 36 

The black numbers are: 

2, 4, 6, 8, 1 0, 1 1 , 1 3, 1 5, 1 7, 20, 22, 24, 26, 28, 29, 31 , 33, 35 

You will not be allowed to bet more chips than you have, and you may withdraw from the wheel 
at any time. The bank only holds 1 ,000 chips; so if you get a total of 1 , 1 00 in hand (the bank's 
1 000, plus your original 1 00 chips), the game must end, when you'll be the one who broke the 
bank at Monte Carlo. 

Once you've spent a bit of time gambling with this program, you may wish to try some of the 
"systems" that have evolved for roulette. One of the most popular is the Martingal, in which 
you stick to the same number, or group of numbers, doubling the bet each time you lose, so you 
bet one chip the first spin, two the next (if you lost on the first), four the next, and so on. This 
ensures, in theory, that any win should wipe out all previous losses, and give you a profit as 
well. Most systems are systematic only in that they help you lose your money in record time. 
However, it is far better to try out a system with the program than with an actual wheel. Sir 
Hiram Maxim, the inventor of the first automatic repeating gun (hardly an achievement likely to 
make him an expert on roulette wheels), is said to have said that "a bad system is better than 
none at ail." Balance this against the advice of William Makepeace Thackeray: "You have not 
played yet? Do not do so; above all, avoid a martingale if you do." 



1 REM ROULETTE - EUROPEAN 

3 P0KE36879.26 

5 PRINT"n": GOTO20 

1 FORK= 1 TO800 : NEXT : PR I NT : RETURN 

20 DIMB<24> :CH=100 

40 PRINT"VOU HfiVE"CH"CHIPS" 

50 GOSUB10 

60 PR I NT "MESSIEURS. FfllTES VOS JEUX" 

70 GETfl*: IFfl$'=""THEN70 

72 R»flSC < fl$ > -64 : 1 FfK 1 ORfl> 1 7THEN70 

75 IFfl«17THEN4000 

80 FORQ« 1 T024 : B < Q > =-99 : NEXT 

1 1 I NPUT " WOW MRNV CH I PS " ; N = I FN>CHTHEN 1 1 

1 20 CH*CH"'N 
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130 IFFI=1THENGOSUB2600 

131 IFfl«2THENGOSUB2S40 

132 IFfl='3THENGOSUB2680 

133 IFfl«4THENCOSUB2720 

134 IFfl«5THENGOSUB2760 

135 IFfl='6THENGOSUB2800 

136 IFfl«7THENGOSUB2840 

137 IFfl«8THENGOSUB2880 

138 IFfl«9THEHGOSUB2920 

139 IFfl«10THEHGOSUE2960 

1 40 I Ffl= 1 1 THENGOSIJB3000 

141 IFfl«12THENGOSUB3040 

142 IFfl«13THENGOSUB3080 

143 IFflal4THENGOSUB3120 

144 IFR=15THENGOSUE3160 

145 IFfl=16THENGOSUB3200 
150 GOSUB10 

160 PRINT"WHEEL IS SPINNING" = GOSUB10 
170 GOSUB10:PRINT"r3" 

180 FORB=1TO75:C«INTCRND<0)*37>: PRINT" ^a)!OP"C:FORT«lT03#B 

185 NEXT : GOSUB5000 = NEXT 

190 GOSUE10: PRINT" BALL HAS ENDED flT"C 

240 V=0:E«1 

250 I FB < E > »CTHENV= 1 = GOTO270 
260 IFE<24THENE»E+1 = GOTO250 
270 IFV«0THEN370 
290 WI«OD*N:CH=CH+WI 

310 PRINT"CONGRflTIJLFlTIONS. VOU HAVE WON "W I" CHI PS" 
330 GOSIJB10 
350 GOSUB400 
360 GOTO40 

370 PRINT"SO VOU LOSE" : GOTO330 

400 IFCH<1THENPRINT"V0IJ HAVE RUN OUT OF CHIPS": END 
410 IFCH>1100THENPRINT"VOU HAVE BROKEN THE BflNK!":END 
420 RETURN 

2600 I NPUT " JSWH I CH NUMBER " ; D = E < O =D = 0D«35 = RETURN 
2640 I NPUT "mmCH TWO NUMBERS " ; B a ) .. B < 2 > = 0D= 1 7 : RETURN 
26S0 PRINT"»JHICH NUMBER" INPUT" IN LEFT COLUMN" ;D 
2690 FORE«0TO2 = B < E+ 1 > «D+E : NEXT : 0D« 1 1 = RETURN 

2720 INPUT")FIR8T NUMBER OF SIX" ; D : FORE«0TO5: B<E+1 )«D+E = NEXT : OD-5 ; 
RETURN 

2760 INPUT" 1ST NUMBER IN SQUARE" ;D : FORE«0TO3 = B<E+1 >»D+E = IFE«2 

THEND-D+1 
2770 NEXT '• ODaS : RETURN 

2800 FORE« 1 TO 1 2 : B < E > «E : NEXT = 00*2 = RETURN 

2840 FORE« 1 TO 1 2 : B < E > «E+ 1 2 : NEXT = 0D«2 = RETURN 

2880 FORE* 1 TO 1 2 : B < E ) «E+24 : NEXT : 0D»2 : RETURN 

2920 FORE* 1 TO 1 8 : B < E > «E : NEXT = 0D« 1 = RETURN 

2960 F0RE«1T08 : B<E>«E+ie = NEXT = 0D«1 = RETURN 

3000 PRINT")!l.0W NUMBER AT END" = INPUT" OF LINE";D 

3010 FOREa0TO 1 1 •• B <: E+ 1 > a3*E+D : NEXT : 0Da2 •• RETURN 

3040 INPUT")!L0W NO. 1ST COLUMN" ; Dl = INPUT" ]«LOW NO. 2ND COLUMN"; 

D2 : I FflBS < D 1 -D2 » 1 THEN3040 
3050 FORE«0TO 1 1 = B< E+ 1 ) *3*E+D 1 : B < E+ 1 3 > a3#E+D2 : NEXT = 0D« . 5 : RETURN 
3080 RESTORE 
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3090 F0RE=1T018 : REflDB<E) = HEKT ■ 0D=1 = RETURN 

3 1 20 RESTORE : FORE« 1 TO 1 8 = REflDZ : NEXT : FORE« 1 TO 1 8 = REflUB < E r NEXT = 0D« 1 : 
RETURN 

3 1 60 F0RES2T036STEP2 : B C E/2 > «E = NEXT = OD* 1 : RETURN 

3200 FORE* 1 T035STEP2 = E < < E+ 1 > /2 > =E : NEXT : 0D« 1 = RETURN . 

3210 mjm>3>^,7,3, 12.. 14. 16. 18. 19.. 21 . 23. 25. 27. 30. 32. 34. 36 

3220 Df=lTfl2.4.6.8. 10. 11. 13. 15. 17.20.22.24.26/28.29.31.33.35 

4000 PRINT-WMBTt'OU ARE WITHDRRWING FROM THE GAME WITH "CH"CHIPS" 

4010 END 

5000 P0KE36878.5 

5010 P0KE36877. 130+B:POKE36875. 130+E 
5020 P0KE36878 . : P0KE36e77 . = P0KE36875 . 
5030 RETURN 



1 REM ROULETTE - RMERICflN 

3 P0KE36879.26 

5 PRINT"::]": GOTO20 

1 FORK* 1 TO800 : NEXT : PR I NT = RETURN 

20 DIMB<24> :CH=100 

40 PRINT"VOU HFlVE"CH"CHIPS" 

50 GOSUB10 

60 PR I NT "MESSIEURS. FFIITES VOS JEUX" 

70 GETfl* : I Ffl*= " " THEN70 

72 fl=RSC < fl$ > -64 : 1 Ffl<: 1 ORfl> 1 7THEN70 

75 IFfl*17THEN4000 

80 FORQ= I T024 = B < Q > «-99 : NEXT 

110 INPUT")JHOW MRNV CHIPS" ; N = IFN>CHTHEN1 10 

120 CH«CH--N 

130 lFfl=lTHENGOSUB2600 

131 IFfl«2THENGOSUE2640 

132 IFfl«3THENGOSUB2680 

133 IFfl«4THENGOSUB2720 

134 IFR=5THENGOSUB2760 

135 IFfl«6THENGO8UB2800 

136 IFfl«7THENGOSUE2840 

137 IFR*8THENGOSUB2880 

138 IFR«9THENGOSUB2920 

139 IFR«10THENGOSUB2960 

140 IFR=11THENGOSUB3000 

141 IFfl«12THENGOSUB3040 

142 IFR«13THENGOSUB3080 

143 IFR=14THENGOSUB3120 

144 IFR=15THENGOSUB3160 

145 IFR«16THENGOSUB3200 
150 GOSUE10 

160 PR I NT "WHEEL IS SPINNING" = GOSUB 10 
170 GOSUB10:pRINT"n" 

1 80 FORE* 1 T075 : C= I NT < RND C > *38 > - 1 : PR I NT " nWWW" C FORT« 1 T03*B 

182 IFCO-lTHENPRINT"nWWW§ISr'C 

183 IFCa-lTHENPRINT"?]W)lWMaDOUBLE ZERO" 

184 F0RTalT03*E 

185 NEXT : GOSUB5000 : NEXT 

186 GOSUB10:PRINT"Ba" 



153 



187 IFCO-lTHEHPRINT"BFILL HAS LANDED flT"C 

190 IFC«-1THENPRINT"BRLL HAS LANDED ON DOUBLE ZERO" 

240 V=0;E»1 

250 I FB < E ■> =CTHEN V= 1 : GOTO270 
260 IFE<24THENE=E+1:GOTO250 
270 IFV«0THEN370 
290 W I sOD*N : CH=CH+W I 

310 PR I NT "CONGRATULATIONS. VOU HAVE WON" WI "CHIPS" 
330 GOSUB10 
350 GOSUB400 
360 GOTO40 

370 PR I NT "SO VOU LOSE" = GOTO330 

400 IFCH<1THENPRINT"V0U HAVE RUN OUT OF CHIPS": END 
410 IFCH>1100THENPRINT"VOU HAVE BROKEN THE BAHK!":END 
420 RETURN 

2600 I HPUT " •JII.JH I CH NUMBER " ; D = E U ) «=D = 0D»35 : RETURN 
2640 I NPUT " ».JH I CH TWO NUMBERS " B CI > . B 2 > : 0D= 1 7 : RETURN 
2680 PRINT"M.iHICH NUMBER" : INPUT" IN LEFT COLUMN ".;D 
2690 FORE«0TO2 • B >:: E+ 1 > =ri+E ■ NEXT = 0D» 1 1 = RETURN 

2720 INPUT"*IFIRST NUMBER OF SIX" .: D = FOREa0TO5 = BCE+n^D+E = NEXT : 0D«5 : 
RETURN 

2760 I NPUT " 1 ST NUMBER I N SQUARE " .; D : FORE«0TO3 = B < E+ 1 > =D+E ■ 1 FE=2 

THEND=D+1 
2770 NEXT : 0D=8 : RETURN 

2800 FORE= 1 TO 1 2 : B < E > «E : NEXT = 0D«2 : RETURN 

2840 FORE* 1 TO 1 2 : E < E ) «E+ 1 2 : NEXT = 0D=2 = RETURN 

2880 FORE= 1 TO 1 2 : E C E > «E+24 : NEXT : 0D==2 = RETURN 

2920 FORE« 1 TO 1 8 : B < E > «E : NEXT : 0D= 1 = RETURN 

2960 FORE= 1T08:E<E>=E+ 18= NEXT : 0D=1 : RETURN 

3000 PRINT")(LOW NUMBER AT END" : I NPUT "OF LINE";D 

30 1 FORE=0TO 1 1 : B < E+ 1 > «3#E+D = NEXT = 0D«2 : RETURN 

3040 INPUT">PLOW NO. 1ST COLUMN" ; Dl : I NPUT" )JLOW NO. 2ND COLUMN"; 

D2 : 1 F ABS < D 1 -D2 » 1 T HEN3040 
3050 FORE«0TOll ■•E'r.E+l>=3*E+Dl =B<E+13>=3*E+D2 : next: ODa. 5: RETURN 
3080 RESTORE 

3090 FORE= 1 TO 1 8 : READB <.E> ■ NEXT ; 0D« 1 : RETURN 

3 1 20 RESTORE : FORE* 1 TO 1 S : RE ADZ : NEXT : FORE* 1 TO 1 8 : READB C E > : NEXT : 0D= 1 : 
RETURN 

3 1 60 F0RE=2T036STEP2 : E < E/2 > «E : NEXT : 0D« 1 : RETURN 

3200 FORE« 1 T035STEP2 : B < < E+.l V2 > =E : NEXT : 0D« 1 : RETURN 

3210 DATAl.3.5.7.9. 12. 14. 16. 18. 19.21.23.25.27.30.32.34.36 

3220 DATA2.4.6.8. 10. 11. 13. IS. 17.20.22.24.26.28.29.31.33.35 

4000 PRINT"M«!MIt'OU ARE WITHDRAWING FROM THE GAME WITH "CH" 

CHIPS" 
4010 END 

5000 P0KE36878.5 

50 1 P0KE36877 . 1 30+B : P0KE36875 . 1 30+B 
5020 P0KE36878 . : P0KE36877 . : P0KE36875 . 
5030 RETURN 
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Appendix 



Error Messages 

BAD DATA.. .String data was received, but program expecting numeric data. 

BAD SUBSCRIPT. ..Element of an array outside of tlie range specified in tiie DIIVI statement. 

CAIM'T CONTINUE. ..Tlie CONT command will not work, either because the program was never 
RUN, there has been an error, or a line has been edited. 

DEVICE NOT PRESENT.. .The required I/O device was not available for an OPEN, CLOSE, CMD, 
PRINT#, INPUT#,orGET#. 

DIVISION BY ZERO. ..Division by zero impossible. 

EXTRA IGNORED. ..Too many items of data entered in response to an INPUT statement. Only 
the first few items accepted. 

FORMULA TOO COMPLEX.. .String expression should be split into at least two parts. 

ILLEGAL DIRECT.. .INPUT can only be used within a program, and not in direct mode. 

ILLEGAL QUANTITY.. .Number used as argument of function or statement out of allowable 
range. 

LOAD. ..Problem with program on tape. 

NEXT WITHOUT FOR.. .Either incorrectly nesting loops, or having a variable name in a NEXT 
statement that doesn't correspond with one in a FOR statement. 

OUT OF DATA... A READ statement executed but no data left unREAD in DATA statement. 

OUT OF MEMORY.. .No more RAM available. May also occur when too many FOR loops nested, 
or too many GOSUBs in effect. 

OVERFLOW... The result of a computation is larger than 1 .701 41 884E + 38. 
REDIM'D ARRAY.. .An array may only be DIMensioned once. 

REDO FROM START... Character data was typed in during an INPUT statement when numeric 
data was expected. Just re-type the entry so that it is correct, and the program will continue by 
itself. 
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RETURN WITHOUT GOSUB... RETURN statement encountered, when no GOSUB command 
issued. 

STRING TOO LONG... A string can contain up to 255 cfiaracters. 

SYNTAX...A statement is unrecognizable by tlie VIC. A missing or extra parentlnesis, misspelled 
keywords, etc. 

TYPE MISMATCH. ..This error occurs when a number is used in place of a string, or vice-versa. 

UNDEF'D FUNCTION. ..A user defined function was referenced, but it has never been defined 
using the DEF FN statement. 

UNDEF'D STATEMENT... An attempt was made to GOTO or GOSUB or RUN a line number that 
doesn't exist. 
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z^p! 9QW\ boom! 

Arcade GaiKS for the Vkrm 



Tim Hortnel) and Mark Romshaw 



ZAPI POWl BOOMI Now you can play ^rtadegames at home on your excl^ 
Ing yfC-20 - making the most off your computer's powerfful color and sound 
potenrtlall 

Just e^ter the programs as they are listed, and you'iKen/oy.hours of splendid color effects 
and a limitless range of noises. Or, tailor the programs to adapt your own ideas to them — 
there af,e plenty of ideas within the game to work with. 

. ,r Write poetry with your VIC, work out biorhythms, create messages, in double-sized char- 
s' acters, drive your racing car on the VIC Speedway . . .^and morel Just a sample of the 
'4r'' programs you'll find in this fun-filled book: / 

Gunflght — outshoot the fastest draw in town, VIC. Move up and down on the screen, 
avoiding VIC's shots and fire back. Good shooting, partner, 
(i Scramble —Bomb the enemies defense installations and shoot down fighters for points. 
' As you move off the right of the screen, you appear on a new landscape. 

Avoid the enemy rockets and fighters as they stream through the skies. The 
smatrTed are fuel dumps and the large circular objects on stilts are 
ammo dumps. And be careful ndt to get hit by the fire from the ground 
__Jnstallationsl 

, Airplane^— You attempt to land your passengers safely on the runway— all of the 
\ controls are up to youl 

Space Birds. Arkenstone. Symphony for a Melancholy Computer. Codebreaker. All thest 
games and many, many more are includedl 



All programs fit the standard memory VIC-20. Several are supplied with special versions so 
you can use joysticks if you have them. Nonjoystick versions are also included. All games 
have been extensively play-tested . . . and have been passed with flying colors. Don't plan 
on going out too much in the next few months. You won't be able to tear yourself away 
from your VIC-201 y 





